use warnings;
use strict;
$\="\n";
$,="\t";

our $x="main";

{
    package one;
    our $x="one";

    package two;
    our $y="two";

    {   my $x="private";
        print $x,$y;  # private $x , $two::y
    }                                           # end of second scope

    
    print $x,$y;  # $one::x , $two::y

}                                               # end of first scope

print $x;        # $main::x


print $one::x;   # variable still exists in that namespace 
                 #   without being bound to $x
                 # but the private $x of the second scope 
                 #   is definitely lost!


                                               # end of file scope
__END__
private	two
one	two
main
one