use strict; 
use warnings; 
use threads; 
use threads::shared; 

my %h; 
share $h{ fred };
$h{fred} = 2; 

async{ 
    my $a='bill'; 
    lock $h{fred}; 
    $h{fred}=$a;
}->join; 

print $h{fred};

bill