Re: pop and shift not reversible ( while @array )

[Anonymous Monk]

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

[gannett]

Thank you for your combined wisdom. I see this also works but looks a bit inelegant.

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

I would be using the offered solution.

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