@files = grep{ my $i = $_; !grep{ $_ eq $i }@unwanted }@files;