Select Code to Download

 
my @q = ( 1,2,0,4 );
$first = pop @q;
...
{  $next = pop @q ;  print ",",$next };
---- Gives
q 2 pop 4->,0,2,1

while( @array )
{ my $next = shift @array; }