use strict;
use warnings;

use threads;
use threads::shared;

my %hash :shared;

print '$hash{a}{b} ',  ( exists $hash{a}{b} ) ? "exists" : "doesn't exist";