Hey, nobody has complained yet that you didn't use strict;use warnings. So I will.

When I did this, I got lots of warnings, such as

Use of reference "HASH(0x224f58)" as array index at scratch.pl line 23
+.
Use of uninitialized value in substitution (s///) at scratch.pl line 2
+3.
Use of reference "HASH(0x18916bc)" as array index at scratch.pl line 2
+3.
Use of uninitialized value in substitution (s///) at scratch.pl line 2
+3.
Terminating on signal SIGINT(2)
Use of uninitialized value in substitution (s///) at scratch.pl line 2
+3.
[download]

I haven't looked into what the specific problem is, but since other monks seem to already have addressed this in various ways, I will just admonish to always use the strictures! Hope this helps :)