while (@toprocess) {
   my $item = shift @toprocess;