my $foo = undef;
print "\$foo = ", (++$foo)-1;