Select Code to Download

$ time t.pl 2of12inf.txt
Done processing dict (40933 words). Candidate counts, by number of let
+ters:
...
real    0m4.860s
user    0m3.665s
sys     0m0.160s

#!/usr/bin/perl

...
for my $w (sort { $data_max->{$a}{total} <=> $data_max->{$b}{total} } 
+keys %$data_max) {
    print "$w : $data_max->{$w}{total}\n";
}