my @filecopy = ("a.txt","b.txt","c.txt","d.txt");
foreach my $file (@filecopy )  {