my @queue = ( $start ) {
while ( my $thing = shift @queue ) {
    do_something_with( $thing );
    unshift @queue, $thing->children;
}