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