my $this={name=>'alex',array=>['one','two']};
my $that={%$this};
$that->{name}='Ido';
print $this->{name}; #alex - not affected
$that->{array}[0]='three';
print $this->{array}[0];#three - affected