perl -MDevel::Peek -le 'my @nonempty = (1); my @empty = (); print Dump(scalar @nonempty); print Dump(scalar @empty)'
SV = IV(0x563dfe2d16f0) at 0x563dfe2d1700
  REFCNT = 1
  FLAGS = (TEMP,IOK,pIOK)
  IV = 1

SV = PVNV(0x563dfe2d0200) at 0x563dfe2ce410
  REFCNT = 2147483647
  FLAGS = (PADTMP,IOK,NOK,POK,READONLY,PROTECT,pIOK,pNOK,pPOK)
  IV = 0
  NV = 0
  PV = 0x7fb0f957d3c2 "0"
  CUR = 1
  LEN = 0