my $l = 10 > @array ? 10 : @array;
for my $i (1..$l) { ... }