my @daughters = $root->daughters; # and my @b_daughthers = $daughters[1]->daughters; # 's daughters my $third = $b_daughthers[2]; # my $ls = $third->left_sister; # my $rs = $third->right_sister; # my @left = $third->left_sisters; #

and my @right = $third->right_sisters; # , my $mama = $third->mother; # my @ancestors = $third->ancestors; #