Select Code to Download

# Always use strict especially when you are new. Its a boon to debuggi
+ng and it helps you from screwing up in some interesting ways (but mo
+stly it does some typo-checking)
use strict;
use warnings;
...
          map( "$_: $word_count{$_}\n",
               @gt_three_char_words[ 0 .. 9 ] ) )
    . "\n";

use strict;
use warnings;
use Getopt::Long;
...
for my $word ( @words_to_print ) {
    print "$word: $word_counter{ $word }\n";
}