$ perl -MDevel::Peek -E'my $x = 1; print "$x\n"; $x += 0 ;print Dump($x)'
1
SV = PVIV(0x9cba210) at 0x9cb9730
  REFCNT = 1
  FLAGS = (PADMY,IOK,pIOK)
  IV = 1
  PV = 0x9cb43a0 "1"\0
  CUR = 1
  LEN = 12