chomp(@searchlist = `ls`);

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