Select Code to Download

    my $count =0;
    foreach my $column (@{$AoA[$i]}){
            $count ++;
            }

    my $count = @{$AoA[$i]};

use Benchmark 'cmpthese';

...
             Rate counted  direct
counted   11821/s      --   -100%
direct  9267717/s  78297%      --