Select Code to Download

sub max2 { $_[0] > $_[1] ? $_[0] : $_[1] }

...
foreach (0 .. max2(99, $#words_ordered)) {
   print("Word $_ was found $counts{$_} times.\n");
}