C:\>perl -MDevel::Peek -le "$x = 1e6; Dump $x;"
SV = NV(0x488470) at 0x488488
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  NV = 1000000