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