Select Code to Download

    foreach $a1(@a1){
  while(@a2 = <F2>)
...
      ...
  }
}

while (my $line2 = <F2>) {
    foreach my $line1 (@a1) {
        print $line1 if line2_appears_in_line1($line2, $line1);
        }
    }