my $x=5;
$x=$x + ++$x + $x++;
warn $x; #get 18.