perl -MDevel::Peek -e '$x = 3; "$x"; $x += 0; print Dump $x'
SV = PVIV(0x814e998) at 0x814d4ac
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 3
  PV = 0x8162f50 "3"\0
  CUR = 1
  LEN = 4