for $i (@phrase) {
    $wordfreq{"$phrase[ $j ]"}++;
#    print "$wordfreq{\"$phrase[ $j ]\"} appears $wordfreq{\"$phrase[ $j ]\"}\n";
    $j++;
}

##</code><code>##

for my $word (keys %wordfreq) {
  print "$word appears $wordfreq{$word} times\n";
}