Help for this page

Select Code to Download

Select or download this
```
while (my $a = shift @a) {
```
Select or download this
```
while ( (my $a, @a) = @a ) {
```