while(1){
         last unless my $immed = pop @{$immed_child{$root}};
        get_descends($immed);
        $all_descends{$immed}++;
    }