my @keepers;
foreach my $i (0..$#array1)
{
    push @keepers, $i if $array1[$i] =~ /keep these/;
}
@array1 = @array1[@keepers];
@array2 = @array2[@keepers];