use File::Basename;
use File::Copy;
...
...
...
...
my $dirTarget = '/cygdrive/d/tmp/';
copy ($_, $dirTarget.basename ("$_")) for (@fnames);