$this = { foo => bar };
$that = { %$this };
$that->{foo} = "not bar";
print $this->{foo};
__END__
bar