C:\>perl -MPDL -MDevel::Peek -le "$pdl = random(); Dump $pdl->at(0);"
SV = NV(0x1426b33a8f0) at 0x1426b33a908
  REFCNT = 1
  FLAGS = (TEMP,NOK,pNOK)
  NV = 0.32972986684150651