Select Code to Download

...
my @matches = <$match_in>;
...
while (my $lines = <$fh_in>) {
  for my $matches ( @matches ) {
...

#!/usr/bin/perl

...
        print "$line1:\t$line2\n";
    }
}

one
two
three

ay
bee
see

one: ay
one: bee
one: see