my $A = {};
bless $A, 'class A';
$A->{arrayholder} = qw//;
return $A