for (my $i=0;$i<=$#phrase;$i++) {
  $wordfreq{$phrase[$i]}++;
}