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