for (@array2) {
    for my $pat (@array1) {
        if (index($_,$pat) > -1) {
            push @a3, $_;
            last;
        }
    }
}

##</code><code>##

for my $pat (@array1) {
    push @a3, grep { index($_,$pat) > -1 } @array2;
}