@array1 = @array1[+grep 
                   { $array1[$_] =~ /keep these/ }
                   0 .. $#array1
                 ]; 
@array2 = @array2[+grep
                   { $array1[$_] =~ /keep these/ }
                   0 .. $#array1
                 ];