my $tree = {
name => undef,
children => [],
};

foreach (`command($tree->{name})`){
   pseudo: add $_ to children[] for this $tree->{name};
}
pseudo add all the childrens children.