for my $i (@array[0..(@array<10?$#array:10)]){ }