Others have mentioned how to traverse by column. Here's how to transpose @AoA using map:

my @AoA_transposed = map {
    my $y = $_;
    [ map { $AoA[$_][$y] } 0 .. $#AoA ]
} 0 .. $#{ $AoA[0] };
[download]