$obj = A->new;  # an object in main
$B::a = $obj;   # point $B::a to object

or:

$B::a = \$obj;   # $B::a is a ref to object