my $i; ++$i, print $i;
1