$h->{$word1}->{$word2}++
instead of
$h->{"$word1 $word2"}++
in the centre of the loops, then you end up with a useful tree-like structure, which gives you a quick index of, for each word, how many times each other word appears in combination with it.
Try it and use Data::Dumper to print the output, and you'll see what I mean.
Although I appreciate that may not be what the homework called for. <grin>
Best wishes, andy. |