use threads;
use threads::shared;
use Clone;
use Data::Dumper;

my $x = shared_clone({
	a => 'Foo',
	b => 'Bar'
});

my $z = Clone::clone($x);
print Dumper($z);