時間がないので走り書き… package Object::B; sub new { my $class = shift; bless { a => shift }, $class; } sub DESTROY { } package Object::A; my @B; sub createB { my $self = shift; push(@B, Object::B->new($self)); $self->{b_index} = $#B; } su…