Jannejannesson:

Getting the "top N" or "bottom N" items of a list is often handled by sorting the keys by frequency of occurrence, and then keeping only the ones you want. You can do it like this:

# Build a list of keys sorted (descending because $b is on the left) b
+y the number of occurrences
my @sorted_by_count = sort { $count{$b} <=> $count{$a} } keys %count;

# Print the top 10:
print "$_ occurred $count{$_} times\n" for @sorted_by_count[0 .. 9];
[download]

Note: I didn't test the code, but it should be pretty close.

...roboticus

When your only tool is a hammer, all problems look like your thumb.