foreach $i(@a){
    foreach my $i2(@A2){
        if($i =~ m/$i2/){