Along similar lines, as I was reading along, I was saying to myself something like, `my %word_count; for (@words) { ++$word_count{$_} }`...