Select Code to Download

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

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