#open file
#open outFile

while (<file>) {
  my $line = $_;
  my $match = 0;

  for (@matcharray) {
    ($match = 1), last if $line =~ m/$_/;
  }
  print outFile $line if $match;
}