$ perl -MDevel::Peek -e 'my $x=0; $x eq 0 and Dump($x)'
SV = PVIV(0x1542e82) at 0x1548d10
  REFCNT = 1
  FLAGS = (IOK,POK,pIOK,pPOK)
  IV = 0
  PV = 0x1537840 "0"\0
  CUR = 1
  LEN = 10