>perl -MDevel::Peek -le"@a=qw(a b c); Dump(\@a, 1); pop @a; Dump(\@a, 1)"
SV = RV(0x183c550) at 0x2260b4
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x226dbc
  SV = PVAV(0x22bfcc) at 0x226dbc
    REFCNT = 2
    FLAGS = ()
    IV = 0
    NV = 0
    ARRAY = 0x1833fc4
    FILL = 2                # 0..2 in use
    MAX = 3                 # 0..3 allocated
    ARYLEN = 0x0
    FLAGS = (REAL)
SV = RV(0x183c550) at 0x2260a8
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x226dbc
  SV = PVAV(0x22bfcc) at 0x226dbc
    REFCNT = 2
    FLAGS = ()
    IV = 0
    NV = 0
    ARRAY = 0x1833fc4
    FILL = 1                # 0..1 in use
    MAX = 3                 # 0..3 allocated
    ARYLEN = 0x0
    FLAGS = (REAL)