#!/Utils/bin/perl5 -w

while (<STDIN>) {
  chop;
  $trigram{$_}++;
}

while (($trigram, $freq) = each(%trigram)) {  
  print "$trigram\t$freq\n";
}