package Family;

my @objs;

sub new {
   my( $parent, $child, %otherstuff ) = @_;
   push @objs, my $self = bless \%otherstuff, __PACKAGE__;
   $self->id( $#objs );
   $self->parent( $parent->id );
   $self->child( $child->id );
   return $self;
}