my $var;
print \$var,$/;
print 0+\$var,$/;