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