- or download this
...
my @matches = <$match_in>;
...
while (my $lines = <$fh_in>) {
for my $matches ( @matches ) {
...
- or download this
#!/usr/bin/perl
...
print "$line1:\t$line2\n";
}
}
- or download this
one
two
three
- or download this
ay
bee
see
- or download this
one: ay
one: bee
one: see