Select Code to Download

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

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