package Foo;
our $x = 1;

package Bar;
our $x = 2;

package main;

use strict;
use warnings;

our $x = 3;
print "x = $x\n";
print "Foo::x = $foo::x\n";
print "Bar::x = $Bar::x\n";

$x = 4;
print "x = $x\n";
print "Foo::x = $Foo::x\n";
print "Bar::x = $Bar::x\n"