use Class::Struct;
use strict;

struct Test => [ xyz => '$' ];

our $T = new Test(xyz => 123);
print "\$T->xyz starts as: ", $T->xyz, "\n";

no strict 'refs';
my $symbolic = "T";
${$symbolic}->xyz(456);
print "\$T->xyz is now:    ", $T->xyz, "\n";

my %A
$A{t} = $T;
$A{t}->xyz(789);
print "\$T->xyz is now:    ", $T->xyz, "\n";

__END__
$T->xyz starts as: 123
$T->xyz is now:    456
$T->xyz is now:    789

##</code><code>##

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