Help for this page
Select Code to Download
Select
or
download this
my @arr = ( 1, 2, 3 ); for my $x ( shift @arr ) { #do some stuff }