my $x = 1;
print $x  #don't care if modified!
our $package_X;
print $package_x; #Now I care!