#active:
push @{$object->{related}}, $object2;

#inactive
@{$object->{related}}, \$object2;