{
    my $temp = $x; $x = $new;
    ...
    $x = $temp;
}