Check the existence of the filename with something like this:

my $fn = $dirName.'/'.substr($fNameArray[$a], 1, -1) 
print "File '$fn' exists: ", -e $fn ? "yes\n" : "no\n";
[download]

I bet it does not. Maybe you're not in the directory where you think you are? Or maybe there are trailing spaces in your file name?