Select Code to Download

my @compiled_patterns = map { qx/$_/ } @matcharray;

OUTER: while (my $line = <$file>) {
  INNER: for my $pattern (@compiled_patterns) {
    print $line, last INNER if $line =~ $pattern;
  }
}