sub foo {
   my ($x) = shift;
   our @o = 1;
   bar();
   print("@o\n");
}

sub bar {
   my ($x) = shift;
   our @o = 2;
   print("@o\n");
}

foo();  # 2,2