$firstelement = shift @array;
for (@array){
do something...
}
unshift(@array,$firstelement);