$ perl -MDevel::Peek -E'my $x = 1; print "$x\n"; print Dump($x)'
1
SV = PVIV(0x864e218) at 0x864d738
  REFCNT = 1
  FLAGS = (PADMY,IOK,POK,pIOK,pPOK)
  IV = 1
  PV = 0x86483a8 "1"\0
  CUR = 1
  LEN = 12
$ perl -MDevel::Peek -E'my $x = 1; print $x,"\n"; print Dump($x)'
1
SV = IV(0x86b0724) at 0x86b0728
  REFCNT = 1
  FLAGS = (PADMY,IOK,pIOK)
  IV = 1