$ perl -MDevel::Peek -le 'my $var = 8.4; $var = "test"; $var = 3; Dump $var; print $var + 3'
SV = PVNV(0x1069080) at 0x1086a30
  REFCNT = 1
  FLAGS = (PADMY,IOK,pIOK)
  IV = 3
  NV = 8.4
  PV = 0x2357070 "test"\0
6
$ perl -MDevel::Peek -le 'my $var = 8; $var = "test"; $var = 3.1; Dump $var; print $var + 3'
SV = PVNV(0x9f3080) at 0xa10a30
  REFCNT = 1
  FLAGS = (PADMY,NOK,pNOK)
  IV = 0
  NV = 3.1
  PV = 0x2357070 "test"\0
6.1
$ perl -MDevel::Peek -le 'my $var = 8; $var = "test"; Dump $var; print $var + 3'
SV = PVIV(0x2352080) at 0x235ca20
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK)
  IV = 8
  PV = 0x2357070 "test"\0
  CUR = 4
  LEN = 8
3