@new_keys = grep { $hash{$_} == $condition } keys %hash;
@new_hash{@new_keys} = @hash{@new_keys};