$main::x=10;

##</code><code>##

$main::A::v
and
$main::B::v