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