Select Code to Download

use strict;                         # complain about errors
my %lexicon;                        # collect unique strings
...
}
print "$_: $lexicon{$_}\n"          # show word and count
   foreach (sort keys %lexicon);    # for all words in order