my $n = 0;
my $i = $n++;
print $i, "\n";