if (defined($children_indexes) && ref($children_indexes) eq "ARRAY" && scalar(@$children_indexes) > 0) { # if there are children for my $index_index ( reverse 0..$#$children_indexes ) { splice @$children_indexes, $index_index+1, 0, @{ $self->{RELATION}[$children_indexes->[$index_index]]->{CHILDREN} }; } ........ ........