my $orig_x = $x;
++$x;
$orig_x