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

I think perhaps you meant:

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

Since, after all, it's supposed to count the frequency of each word :)

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
[download]