use threads;
use threads::shared;
my %h : shared;
my $ar = [];
$h{test} = share( $ar );