You give no specification to check your code against, use many routines that you don't explain (and that aren't standard Perl builtins), and yet you expect that we can tell you if your code is correct.

Please read the articles I linked to. If you already have (which I doubt from the speed by which you replied), then read them again. If you want an answer, you need to explain your problem in a way that we have a chance to give you an answer. We can't read your mind.

Please edit the original posting to add "code" tags around your code because it is formatted so poorly that it is difficult to understand.

Tell us in detail what is wrong, or what you think is wrong. If you got an error message when you ran your code, show us the message. If the output was not as expected, show us the expected output and the actual output.

Please (re)-read the links that moritz pointed you to.