my $x = 0;
print "$x", $x++;