my @leaves = ();
$root->walk_down('callback' =>
  sub {
    if (!scalar($_[0]->daughters))  # is it a leaf?
      push @leaves, $_[0];
    return 1;
  }
$root->add_daughters(@leaves);