$ perl -MDevel::Peek -e 'my $var = 8.4; $var = "test"; $var = 3; Dump $var' SV = PVNV(0x1293080) at 0x12b0a48 REFCNT = 1 FLAGS = (PADMY,IOK,pIOK) IV = 3 NV = 8.4 PV = 0x12ab050 "test"\0 CUR = 4 LEN = 8