sub foo { print \$_[0], $/ }

foo($i);   # SCALAR(0x81526f0)
foo(++$i); # SCALAR(0x81526f0)
foo($i++)  # SCALAR(0x8151c28)

##</code><code>##

$i = 0;
$i = ++$i + ++$i + $i++ + ++$i;