Select Code to Download

[19:35:10.42] C:\test>1056884-calc hdb.dict
2aaaaenot
...
[4] einnostx : six one nine ten
[3] eenostwx : one two ten
...

#! perl -slw
use strict;
...
    sort{ @{ $stats{ $b } } <=> @{ $stats{ $a } } } keys %stats;