for my $word (sort { $count{$b} <=> $count{$a} } keys %count) {