>perl -MDevel::Peek=Dump -e "$a=49.46.48; $b='1.0'; Dump $a; Dump $b"
SV = PV(0x225484) at 0x19245fc
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x22ce4c "1.0"\0
  CUR = 3
  LEN = 4
SV = PV(0x2254b4) at 0x1924608
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x22b424 "1.0"\0
  CUR = 3
  LEN = 4