use threads;
use threads::shared ;
my %a : shared = () ;
$a{'foo'} = &share({}) ;