for my $elem (@phrase) { 
    $wordfreq{$elem}++;
}