use strict;
use warnings;
my $file1 = 'C:/Users/Siddharth/Desktop/goodfile.txt'; 
my $file2 = 'C:/Users/Siddharth/Desktop/badfile.txt'; 
 
open my  $h2, '<', $file2 or die "cannot open file2";


my @a2 = <$h2>;
close $h2;
chomp @a2;
my $match = join '|', @a2;
$match = qr/$match/;

open my $f3,'>',"C:/Users/Siddharth/Desktop/do.txt" or die "$!";
open my $h1, '<', $file1 or die "cannot open file1";
my @a1 = <$h1>;
close $h1;
#my $fh = grep {$_ !~ $match} @a1;
#print $f3 $fh;
print grep {$_ !~ $match} @a1;