while (my $item = shift @toprocess)

##</code><code>##

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

##</code><code>##

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