Ugly? Huh. I thought the foreach/print was uglier than the print/map. But then on consideration I would have probably written that as as list instead.

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