Using shift the get value out of an array

    

@a = (1 .. 10);

do {

    $v = shift @a;
    print "Current number: $v\n";

} while ($v < 5);

1.	Shift and Unshift
2.	The shift function shifts off and returns the first element of an array, decreasing the size of the array by one element.
3.	Shift value from array
4.	shift array
5.	While there are more elements in @array, remove each element with shift

Using shift the get value out of an array : shift « Array « Perl