package main;
use strict;
use warnings;
my $lexical = 100;
our $global = 200;
print $main::global, "\n";
print $main::lexical, "\n";
####
package main;
use strict;
use warnings;
our $var = 200;
my $var = 100;
print $var, "\n";
print $main::var, "\n";
##
##
package main;
use strict;
use warnings;
my $var = 100;
my $ref_to_lexical = \$var;
our $var = 200;
my $ref_to_global = \$var;
print $var, "\n"; # This prints 200. The lexical is masked.
print $$ref_to_global, "\n"; # This prints 200.
print $$ref_to_lexical, "\n" # This prints 100, it refers to
# the lexical $var.