{ package SQL_Wrapper; use strict; use warnings; our %q; } package main; use strict; use warnings; my %q = %SQL_Wrapper::q; $q{f} = 42; #### { package SQL_Wrapper; use strict; use warnings; # our %q; } package main; use strict; use warnings; my %q = %SQL_Wrapper::q; $q{f} = 42;