$Foo::var = 'foo!';
$Bar::var = 'bar!';
{
   package Foo;
   our $var;
}
{
   package Bar;
   print("$var\n");  # bar!
}