CreationP:

Try using Data::Dumper, and dump the contents of variables at "interesting" points in your program. That way, you can see if the variables have the values you expect. I tried to run the program (after using strict and warnings), but it was a bit messier than I wanted to dig through in the limited time I have this morning.

...roboticus

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