use strict;

no strict "vars";  # option1
#our $x;        # option2

$x="main";

{
    package other;
    $x="other";
    print $x;
}

print $x;

__END__
1: othermain
2: otherother