use strict;

{
  our $foo = 'foo';
  our $bar = 'bar';
}
{
  our $foo;
  print $foo;
  print $main::bar;
}

__END__
foobar