my @descnames = map {$_->name} $node1->descendants; # @descnames = qw(w i j x k l);