while (@array) 
{
     $element = shift @array
     #other processing
}