open(my $F, '<', "$dir/$filename) or die "Cannot open file '$dir/$filename' for reading: $!";

OUTER: while (my $line = <$F>)
{
    foreach my $string (@store)
    {
        if ($line =~ /\Q$string\E/)
        {
            ...
            next OUTER;
        }
    }
}

close $F or die "Cannot close file '$dir/$filename': $!";