Select Code to Download

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

use Data::Dumper;
my $this={name=>'alex',array=>['one','two']};
...
print $this->{name}; #alex - not affected
$that->{array}[0]='three';
print $this->{array}[0];#one - not affected