push array refs (not arrays) into your array, vis:

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;
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print