my $a=1;

print ++$a + $a++;