my $x=5;
$x=++$x + $x++ + $x;
warn $x;