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