Help for this page

Select Code to Download

Select or download this
```
print shift @array while @array;
```

Select or download this

knoppix@Microknoppix:~$ perl -E '
> @arr = qw{ 11 22 33 44 };
...
44
11 22 33 44
knoppix@Microknoppix:~$