johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -MData::Dumper -E '
my @AoA = (
   [ 1, 2, 3 ],
   [ qw{ a b c } ],
   );

say Data::Dumper->Dumpxs( [ \ @AoA ], [ qw{ *AoA } ] );

my @newArr = qw{ x y z };
push @AoA, \ @newArr;

say Data::Dumper->Dumpxs( [ \ @AoA ], [ qw{ *AoA } ] );
say $AoA[ -1 ];
say qq{@{ $AoA[ -1 ] }};

pop @AoA;
push @AoA, @newArr;

say Data::Dumper->Dumpxs( [ \ @AoA ], [ qw{ *AoA } ] );'
@AoA = (
         [
           1,
           2,
           3
         ],
         [
           'a',
           'b',
           'c'
         ]
       );

@AoA = (
         [
           1,
           2,
           3
         ],
         [
           'a',
           'b',
           'c'
         ],
         [
           'x',
           'y',
           'z'
         ]
       );

ARRAY(0x555eb3457760)
x y z
@AoA = (
         [
           1,
           2,
           3
         ],
         [
           'a',
           'b',
           'c'
         ],
         'x',
         'y',
         'z'
       );