Select Code to Download

while (<>) {
    push @words, split /\s/;
}

trigram frequencies in your text:
iwentthere! 1
...
there!shealso 1
shealsowent 1
alsowentthere. 1

@trigrams = ();

...
    print "$trigrams[$index] $trigramfrequency[$index]\n";
}