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.