while (my $node = $root->next_inorder()) { print $node->{data}; }