#!\perl\bin\perl

use strict;
use warnings;

my $files = "C:\\Directory";
my $list = "C:\\Test.sdf";

my @name;
open(my $name, "< $list") or die "Failed to open file: $!\n";
 while(<$name>) { 
  chomp; 
  push @name, $_;
 } 
close $name;

my @file = $files;
opendir(OUTPUT, $files);
  @file = readdir(OUTPUT);
closedir(OUTPUT);

foreach my $filename (@file) {
  foreach $name  (@name) {
    if ($name =~ $filename) {
	  last;
    }else {
      unlink ($files . "\\" . $filename) or warn qq{cannot delete $filename: $!+};
      last;
	}
  }
}