my %hash : shared;
...
$x = $hash{foo};

##</code><code>##

sub threads::shared::FETCH {
    lock $Some:Global:lock_var;
    return $Some::Shared::Space::hash{$_[0]};
}

my %hash;
tie %hash, 'threads::shared';
...