foreach my $key (sort {$count{$a} <=> $count{$b}} keys %count) {
    ...
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.