package foo;
our $foo = "I'm in foo";

package bar;
our $foo = "I'm in bar";

package foo;
print "1) $foo\n2) $foo::foo\n3) $bar::foo\n";