Select Code to Download

#!/usr/bin/perl -w
use strict;
...

my $count = 0;
print join("\t", $count++, keys %$_), "\n" for sort mysort @AoH;

#!/usr/bin/perl -w
use strict;
...
my $count = 0;
print join("\t", $count++, keys(%{$AoH[$_]})), "\n" for
    sort { keys(%{$AoH[$b]}) <=> keys(%{$AoH[$a]}) } 0 .. $#AoH;