our %h:shared;

sub lock {
   my ($key, $val) = @_;
     # critical section
     {
        lock($h);   # don't like this part, I want to lock($h{$key});
        $h{$key} = $val;
     }
 }