Are you sure your code is doing what you think it's doing? When I read it, it's saying

1. For every name in this list, do the following:
   1. If I have a non-zero number in the location $count{$Name}, then I need to add 1 to the location specified by $count{Name}
2. Print stuff out to somewhere.

That doesn't seem like that's what you want to do. In fact, it's doing exactly what you're complaining it's doing. :-)

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.