use strict; use warnings; { no strict "refs"; *T::x = \"a"; *T::y = \"b"; } { package T; print "package ", __PACKAGE__, "\n"; print $T::x, "\n"; print $T::y, "\n"; #print our $y, "\n"; # works, print b print $y, "\n"; # Variable "$y" is not imported } { package P; print "package ", __PACKAGE__, "\n"; print $T::x, "\n"; my $y = "test"; print $y, "\n"; }