{
    $orig_value = \$x;
    *x = \$tmp_new_value;
    ....;
    *x = $orig_value;
}