Select Code to Download

print
    join( '',
          map( "$_: $word_count{$_}\n",
               @gt_three_char_words[ 0 .. 9 ] ) )
    . "\n";

for my $word (@gt_three_char_words[ 0 .. 9]) {
   print "$word: $word_count{$word}\n";
}