Select Code to Download

#!/usr/bin/env perl 
use strict;
...
foreach my $word (sort { $count{$a} <=> $count{$b} or $a cmp $b } keys
+ %count) {
    print "$count{$word} $word\n";
}

$ time ./11116620.pl < Frankenstein.txt > orig.out

...
real    0m0.090s
user    0m0.084s
sys    0m0.005s