use File::Copy;

use strict;  
use warnings; 

for (qw(C:\files\data.txt C:\files\scripts\datascript.pl)) {
	copy($_, '.') or die "Can't cp: $!";
}