use Mode::Rant;
[download]

This question appears to lack any effort whatsoever. You've simply pasted your data file, and pasted your entire script, with a few lines of explanation in between. You haven't explained what you did to narrow down the problem, what the problematic behavior is ("does not work" is not very helpful), or even taken a wild guess at what could be wrong.

Based on this, it seems to me that you want the Perl Monks to do your work for you. I know this happens often. There are plenty of Monks who are so bored, or so willing to show off, that they'll do a lot of free work for someone. Heck, I'm guilty of it myself. But I think it would be in your best interest to put forth some effort of your own. You will find the responses are quicker, better, and might actually lead you to solve your own problem (rather than waiting for someone to solve it for you).

I have a feeling you will ignore this reply, but I hope you don't. Nothing would make me happier than to see you solve your own problem. Then perhaps you would begin to help others at the Monastery in return. Thus the entire community would grow stronger. I am sorry to say that I doubt it will happen, but it would be a happy turn of events if it did.