use Devel::Peek;

my $a = "1";
my $b = 2;

print Dump($a);
print Dump($b);

##</code><code>##

SV = PV(0x98c9700) at 0x98ea3f8
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK)
  PV = 0x98e6368 "1"\0
  CUR = 1
  LEN = 4
SV = IV(0x98ea474) at 0x98ea478
  REFCNT = 1
  FLAGS = (PADMY,IOK,pIOK)
  IV = 2