Select Code to Download

for (@array2) {
    for my $pat (@array1) {
...
        }
    }
}

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