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