#!/usr/bin/perl -w
open FILE , '<' , "mylist.txt" || die "$!";
while (<FILE>){
        chomp;
        system("cp $_ newdirectory/");
}
close FILE;