while (($k, $v) = each(%h)) {
    # stuff here which adds or deletes elements,
    # or uses each/keys/values
}