Select Code to Download

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

# or even shorter, but perhaps a bit unreadable:
$wordfreq{$_} for (@phrase);

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

foreach my $key (sort keys %wordfreq) {
    print "$key: $wordfreq{$key}\n";
}