Select Code to Download

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

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