use Data::Dumper;
$ary1 = [ qw( foo bar baz ) ];
$ary2 = [ qw( just another perl hacker ) ];
push @AoA, $ary1, $ary2;
print $AoA[1][3], " ", $AoA[0][0], "!\n";
print Dumper \@AoA;