perl -MDevel::Size=total_size -MDevel::Peek -e 'my @a; my $s = total_size(\@a);print "\nSIZE : $s\n";  Dump \@a, 1'

SIZE : 56
SV = RV(0x822f26c) at 0x8184a60
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x8184b14
  SV = PVAV(0x8186c54) at 0x8184b14
    REFCNT = 2
    FLAGS = (PADBUSY,PADMY)
    IV = 0
    NV = 0
    ARRAY = 0x0
    FILL = -1
    MAX = -1
    ARYLEN = 0x0
    FLAGS = (REAL)