DB<5> use Devel::Peek


  DB<6> $#array=39_999


  DB<7> Dump @array
SV = PVAV(0x2ec9570) at 0x2ef6338
  REFCNT = 1
  FLAGS = (RMG)
  MAGIC = 0x30886b8
    MG_VIRTUAL = &PL_vtbl_arylen_p
    MG_TYPE = PERL_MAGIC_arylen_p(@)
    MG_FLAGS = 0x02
      REFCOUNTED
    MG_OBJ = 0x3012150
    SV = PVMG(0x30248d8) at 0x3012150
      REFCNT = 1
      FLAGS = (GMG,SMG,IOK,pIOK)
      IV = 39999
      NV = 0
      PV = 0
      MAGIC = 0x3089248
        MG_VIRTUAL = &PL_vtbl_arylen
        MG_TYPE = PERL_MAGIC_arylen(#)
        MG_OBJ = 0x2ef6338
  ARRAY = 0x310e0c8
  FILL = 39999
  MAX = 39999
  FLAGS = (REAL)
  Elt No. 0
  SV = 0
  Elt No. 1
  SV = 0
  Elt No. 2
  SV = 0
  Elt No. 3
  SV = 0


  DB<8>