while ( my $tree = $treeout->next_tree ) { for my $node ( $tree->get_nodes ) { printf $fh "id: %s bootstrap: %s\n", $node->id || '', $node->bootstrap || '', "\n"; } }