bk1388:

Your second for loop should also specify the variable you're using as an iterator:

foreach $number (sort keys %count) {
[download]

Otherwise the code looks fine.

...roboticus

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