You still have the same problem(s) in your code as when you first asked the question here. Didn't you read the answers to the question last time?

Update: Someone proposed in the CB that it may be homework, and that you're in the same class as the person who asked the question I referred to in my link above. If this should be true, then you should be very much ashamed. For two obvious reasons:

1. By letting other people solve your homework problems, you're cheating in class.
2. You're showing disrespect to people that sincerely want to help people with real life Perl problems.

I sincerely hope that you just were too lazy to read the answers from your first question. Please, convince us that this is so.

---

Everything went worng, just as foreseen.