use threads;
use threads::shared;

my %h : shared;
$h{test} = [];

Invalid value for shared scalar at (eval 4) line 1, <> line 4.

my $ar = [];

$h{test} = $ar;
Invalid value for shared scalar at (eval 6) line 1, <> line 6.

share $ar;

$h{test} = $ar;

## No error this time.