Use File::Copy
...
copy($a,$b) ||  die "$!";

##</code><code>##

open(INPUT, "<$a");  
@data = <INPUT>;        
close(INPUT);            
open (OUTPUT, ">$a"); 
flock(OUTPUT, 2);        
copy($a,$b) ||  die "$!";