http://www.perlmonks.org?node_id=736408


in reply to Re^2: Finding Combinations of Pairs
in thread Finding Combinations of Pairs

BTW - and being serious now - you don't actually need to combine them into a single value.

If you do something like:

$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.