our $a = 1; sub b { 0 unless defined $a } sub c {} my $b = b; my $c = c;