First, see the File::Copy module.

As for your actual problem, perl is reading $a_log, as a variable, instead of just using $a. You can fix the problem be explictly saying that "_log" isn't part of the variable by using ${a} instead of $a.

You appear to not being using strict. It's a very good idea to do so.