my $a = new Test ( xyz => 123 );         # original
my $b = new Test ( xyz => $a->xyz );     # copy of a

$b->xyz(456);
printf "a=%d b=%d\n", $a->xyz, $b->xyz;  # a=123 b=456