use strict ;
use warnings ;
use MCE::Shared ;
use Data::Dumper ;
my $h = {
	L1_counter => 1,
	nested1 => {
		L2_counter => 1,
		nested2 => {
			L3_counter => 1,
		},
	},
} ;
my @dupkeys = qw{ nested1 } ;
tie my %result, 'MCE::Shared' ;
@result{@dupkeys} = @{$h}{@dupkeys} ; # Whoops!
print Dumper( $h ) ;
__END__
$VAR1 = {
	'nested1' => {
		'L2_counter' => 1,
		'nested2' =>
			bless(
				[ 3, 'MCE::Shared::Hash' ],
				'MCE::Shared::Object'
			)
	},
	'L1_counter' => 1
};