my $scalar : shared = 0;
my %hash;

$hash{key} = \$scalar;

lock $hash{key};