$ perl -MDevel::Peek -we '$a = 1; $b = 2; Dump ($a); Dump ($b)'
SV = IV(0x8192edc) at 0x8191dbc
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 1
SV = IV(0x8192ee4) at 0x8191de0
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 2