while( shift @array ) { some_operation $_; }