use Devel::Peek;
$c = 1; Dump $c;
$c = "2"; Dump $c;
$c = 3.141592653; Dump $c;
__END__
SV = PVNV(0x176e4d0) at 0x1776f20
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 1
  NV = 1.23456789
  PV = 0
SV = PVNV(0x176e4d0) at 0x1776f20
  REFCNT = 1
  FLAGS = (POK,pPOK)
  IV = 1
  NV = 1.23456789
  PV = 0x17a7900 "2"\0
  CUR = 1
  LEN = 16
SV = PVNV(0x176e4d0) at 0x1776f20
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  IV = 1
  NV = 3.141592653
  PV = 0x17a7900 "2"\0
  CUR = 1
  LEN = 16