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{data.txt};
open my $dataFH, q{<}, $dataFile
   or die qq{open: $dataFile: $!\n};

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

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