my %hash :shared;
    $hash{'foo'} = 'bar';
    #lock($hash{'foo'}); # Error
    lock(%hash); # Works

##</code><code>##

    my %hash :shared;
    my $ref = \%hash;
    lock($ref); # This is equivalent to lock(%hash)