Select Code to Download

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

...
      ...
   }
}

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

...
   my @col = map $_->[$col], @AoA;
   ...
}

sub consensus {
   my %counts;
...

   print(join(', ', @combined), "\n");
}