my %hash;
@hash{ @array1 } = @array2;
my @array1 = grep( ! /foo/, keys %hash );
my @array2 = map { $hash{$_} } @array1;