>perl -MDevel::Peek -e"$a[6]=1; $a[7]=1; shift(@a); Dump(\@a,1)"
SV = IV(0x1acf60) at 0x1acf68
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x336af0
  SV = PVAV(0x1adc30) at 0x336af0
    REFCNT = 2
    FLAGS = ()
    ARRAY = 0x330590 (offset=1)    -- Address of first element
    ALLOC = 0x330588
    FILL = 6                       -- Index of last element
    MAX = 12                       -- Index of last allocated element
    ARYLEN = 0x0
    FLAGS = (REAL)