$ perl -MDevel::Peek -wE '$x = 1 < 0; Dump $x'
SV = PVNV(0x97f45a8) at 0x9805ad0
  REFCNT = 1
  FLAGS = (IOK,NOK,POK,pIOK,pNOK,pPOK)
  IV = 0
  NV = 0
  PV = 0x9801438 ""\0
  CUR = 0
  LEN = 4