Have you tried using Data::Dumper to see what you're actually pulling out?

In addition, you might want to look at ptkdb - the Perl Graphical debugger so that you can see what your code is doing step by step.

Those are usually the first things I do when I have code that is working the way it wants, not the way I expected it to.