foreach my $file (@select_files)
{
   copy($file, "C:\\temp\\$file") or die
     "Failed to copy $file: $!\n";
}