Please guide what's wrong in my script

What do you think is wrong with it?

*tips*
Basic debugging checklist,
Short, Self Contained, Compilable, Example,
brian's Guide to Solving Any Perl Problem,
On debugging, verify everything, talk to teddybear ...,