for(my $i = 0; $i < scalar @array && $i < 10; $i++)
{
print $array[$i] . "\n";
}

sub fisher_yates_shuffle
{
my $array = shift;
my $i;
        for ($i = @$array; --$i;)
        {
        my $j = int rand($i+1);
        next if $i == $j;
        @$array[$i,$j] = @$array[$j,$i];
        }
}

for(my $i = 0; $i < scalar @array && $i < 10; $i++) {
        print $array[$i] . "\n";
}

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

use List::Util qw( min );

for my $v ( @arr[ ( 0 .. min(9,$#arr) ) ] ) {
    print $v;
}

# oder lesbarer

for my $i ( 0 .. min($#arr,9) ) {
    my $v=$arr[$i];
    print $v;
}

my $max_count = 10;

for my $idx ( 0 .. $#array ) {
  # do whatever
  last if $idx >= $max_count;
}

my $max_count = 10;

for my $elem( splice( @array, 0, $max_count ) ) {
  # do whatever
}

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

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

#! /usr/bin/perl -l
use strict;
use warnings;

my @array = ( 1..3 );
my $max = 5;

for ( @array[0..$max-1] ) {
  last if !defined;
  print;
}