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

##</code><code>##

   print "@$_\n" for @AoA;