{ local our $bob; #no strict 'vars'; $bob = "bob"; warn "$bob\n"; # > bob package OTHER; warn "$bob\n"; # > bob } #### { #local our $bob; no strict 'vars'; $bob = "bob"; warn "$bob\n"; # > bob package OTHER; warn "$bob\n"; # ERR: Use of uninitialized value $OTHER::bob in concatenation }