sub foo { my $var     ; $var++; print "var is now $var\n"; }