Select Code to Download

#!/usr/bin/env perl
use warnings;
...
    or $a cmp $b } keys %count ) {
        print "$count{$word} $word\n";
}