$ perl -MDevel::Peek -e '$x=(4000/25); Dump($x)' 
SV = NV(0x9f2f570) at 0x9f286d8
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  NV = 160