my @todo = $tree;
while (@todo) {
   my $node = shift(@todo);

   ...

   push @todo, $node->children;
}
[download]