Did you really mean to put your print statement in the foreach my $i ( @phrase ) { ... } loop? I think you are going to get eight lines of running total information like

apple appears 1
apple appears 2
banana appears 1
banana appears 2
pear appears 1
pear appears 2
kiwi appears 1
kiwi appears 2
[download]

rather than a summary of the word frequencies. To get a summary you could do something like

print qq{$_ appears $wordfreq{$_} times\n}
   for sort keys %wordfreq;
[download]

after the foreach loop.

Cheers,

JohnGG