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