Help for this page

Select Code to Download

Select or download this

while(@array) {
    my $element = $array[0];
...
        shift @array;
    }
}