my @wordlist = sort {$count{$b} <=> $count{$a}} keys %count;
print 'The text contains ', scalar(@wordlist), ' distinct words', "\n";
print "$_\t$count{$_}\n" for @wordlist;