perl -MDevel::Peek -e'$a = "3qwer"; $b = "3"; Dump $a; $a == $b; Dump $a;'<br>
SV = PV(0xca7b78) at 0xcce880<br>
  REFCNT = 1<br>
  FLAGS = (POK,pPOK)<br>
  PV = 0xcc92c0 "3qwer"\0<br>
  CUR = 5<br>
  LEN = 8<br>
SV = PVNV(0xca8ff0) at 0xcce880<br>
  REFCNT = 1<br>
  FLAGS = (POK,pIOK,pNOK,pPOK)<br>
  IV = 3<br>
  NV = 3<br>
  PV = 0xcc92c0 "3qwer"\0<br>
  CUR = 5<br>
  LEN = 8<br>