Help for this page

Select Code to Download

Select or download this
```
while (my $item = shift @toprocess)
```
Select or download this
```
while (my ($item) = shift @toprocess)
```

Select or download this

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