%searchlist = map { $_ => 1 } @searchlist;

open(IN,"test.txt");
while (<IN>) {
  chomp;
  if ( $searchlist{$_} ) {print "Match Found"}
}