use strict;
use warnings;

my $namesFile = q{names.txt};
open my $namesFH, q{<}, $namesFile
   or die qq{open: $namesFile: $!\n};
my @names = <$namesFH>;
close $namesFH
   or die qq{close: $namesFile: $!\n};

chomp @names;  # Remove line terminators

my $namesPatt = join q{|}, @names;

my $dataFile = q{data2.txt};
open my $dataFH, q{<}, $dataFile
   or die qq{open: $dataFile: $!\n};

# while ( <$dataFH> )
# {
#    print qq{Found name $_\n} if /($namesPatt)/;
   my $outFile = q{/home/btobin/data3.txt};
open my $outFH, q{>}, $outFile
   or die qq{open: $outFile: $!\n};

while ( <$dataFH> )
{
    print $outFH qq{Found name $_\n} if /($namesPatt)/;
}

close $outFH
   or die qq{close: $outFile: $!\n};
# }

close $dataFH
   or die qq{close: $dataFile: $!\n};