You could create accessor functions in the parent that access the children arrays, like:
# Parent
sub get_child_id {
my $self=shift;
my $child=shift;
# Find the index of the child. Left as exercise for the reader (read
+: I'm too lazy :) ).
return $child_index;
}
Then your child can get its ID using code such as:
# Child
sub whereami {
my $self=shift;
my $parent=$self->{'parent'};
my $id=$parent->get_child_id($self);
}
Note that you have a small error in your child code, BTW: you store a reference to the reference to the parent instead of the parent ref itself. Change the line:
my $self = {
parent => \$parent;
};
by
my $self= { parent => $parent }; #$parent is a ref, you were storing a
+ ref to $parent
CU
Robartes-
Update: Changed child sub name to original poster's name: sub whereami.