C:\>perl -e "sub foo{ print join qq/\n/, map { \$_ .' - ' . $_ } @_ } foo($i=1,++$i,$i++,$i+1,$i+=1,$i);
SCALAR(0x183059c) - 4
SCALAR(0x183059c) - 4
SCALAR(0x225f7c) - 2
SCALAR(0x18305fc) - 4
SCALAR(0x183059c) - 4
SCALAR(0x183059c) - 4