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