a little typo in your fine solution

$_ and $count{$_} have to be swapped

printf "%s = %d\n", $_, $count{$_} for keys %count;
[download]

greetings, tos