my @names_to_check = qw/ bob sue joe /;
my %validnames = ();
# build lookup
while(<>) {
  chomp;
  $validnames{$_}++; # also filters dups in *.txt
}
# check names
for (@names_to_check) {
  print "$_ is okay\n" if (exists($validnames{$_}));
}