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