Can some one help me out

The code you posted does not even compile:

$ perl -cw 1230041.pl 
Can't find string terminator ")" anywhere before EOF at 1230041.pl lin
+e 17.
[download]

Here's what I would suggest in your situation.

1. Fix all the compilation errors.
2. Go through the resulting code and try to explain to yourself what each individual line is doing and how it is performing that action. If you can't do that for any of the lines, remove them and replace them with something simpler which you do understand.
3. Having done 1 and 2 you now have some code which runs and which you understand. Now create an algorithm for anything else that you want the script to do.
4. Code up the new algorithm.
5. Test the new code. If it fails to meet your requirements go to 1.