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

##</code><code>##

my $B1 = B->new();
my $B2 = B->new();
my @Bees;
push @Bees, $B1, $B2;

##</code><code>##

foreach my $B ($A->{arrayholder}) {
    print Dumper $B;
    print $B->Bfoo;
}