Select Code to Download

# foreach group of three words
      $hash{$word1 . ' ' . $word2}{$word3}++;

# foreach group of n words in array @n_words
      my $nth_word = pop @n_words;
      $hash{join ' ', @n_words}{$nth_word}++;