Read Writeup Formatting Tips, then edit your post to use "code" tags around your code snippets and output data.

Tip #1 from the Basic debugging checklist: warnings.

Use of uninitialized value $2 in concatenation (.) or string at
[download]

You need to escape the $2 in Perl:

@ab=`ls | awk -F'[_]' '{print \$2}'`;
[download]