foreach (@phrase) {
  $wordfreq{$_}++;
}