Variable "$lig" will not stay shared

##</code><code>##

sub one {
    my $x;

    sub two {
        print $x;
    }
}