use strict;
use warnings;
use threads;
use threads::shared;
use Data::Dump qw/dump/;

my %User;
PutShare(\%User, qw/deep fish tuna/);
PutShare(\%User, qw/deep deeper fish halibut/);
print "The resulting leaves are: '$User{deep}{fish}' and '$User{deep}{deeper}{fish}'\n";
print "\nDump: ", dump(\%User);