for (my $x = 0; $x <= $#AoA; $x++)
    {
        print "@{ $AoA[$x] }\n";
    }
[download]

Consider replacing the above with this:

   print "@$_\n" for @AoA;
[download]

Where, each time through the loop, $_ is an array reference (like to $AoA[$x] in your code); and then it is dereferenced with @$_.