Compare

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

and

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