my $searchstring= '\Q' . join('\E|\Q',@output). '\E';
while (my $line=<FILE2>) {
  if ($line=~/$searchstring/) {
    print $line;
  }
}