Pardon me... but I don’t think that you are listening to us all.
First and foremost, use <code> tags to make your code readable.
Second, you can expect us to willingly try to assist you, but we can’t do your job for you. So, please don’t merely “make a change to the code and ask us to debug it for you.” (Perhaps you can obtain this kind of tutoring from a colleague?)
Am I saying these things merely because “I am pissed-off at you?” Frankly, no. But there is a right way to go about availing yourself effectively of the PerlMonks resource, and it makes a big difference to your success. “You want help. We want to help you. Learn How.”