#!usr/bin/perl
use warnings;
use strict;

our $x = 99;
my $x = 4;

print "lexical my version of x=$x\n";
print "package version of x=$main::x";

__END__
"my" variable $x masks earlier declaration in same scope at C:\testing\ourdemo.pl line 6.
lexical my version of x=4
package version of x=99