If you expect people to debug this for you at least provide the input required for it to run, see How do I post a question effectively?. Since you're new to Perl I suggest you read:

• http://learn.perl.org
• http://perldoc.perl.org
• The Tutorials section of this site, including Debugging and Optimization