while (@todo) {
   my $item = shift(@todo);
   ...
   push @todo, ...;
   ...   
}