my @array = (1..20);
my $i = 0;

for (@array) {
   print "$_\n";
   last if ++$i >= 10;
}

##</code><code>##

my @array = (1..20);

print "$_\n" for @array[0..9];