my $num_cols = @{ $AoA[0] };

for my $col (0..$num_cols-1) {
   my @col = map $_->[$col], @AoA;
   ...
}