Help for this page

Select Code to Download

Select or download this

apple appears 1
apple appears 2
...
pear appears 2
kiwi appears 1
kiwi appears 2

Select or download this

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