my @array = qw(a b c d);
open(my $file, myfile.txt);
while (<$file>) {
       if ($_ =~ $array[0..$#array]) { ## instead of: foreach(@array)
              print "Matches!\n";
       }
}