my $foo = 0;
print ++$foo + $foo++;