my @temp=@array;
while(my $i=shift(@temp))
{
  last if(@temp+10<@array);
  # ...
}
undef(@arraytemp);