Print first few elements of a list in perl

Question

Have a next perl code

use 5.012;
use warnings;

#make some random numbers
my @list = map { rand } 1..10;

say "print all 10 numbers";
say $_ for @list;

say "print only first 5";
my $n=0;
for (@list) {
        say $_ if $n++ < 5;
}

some more compact form for printing first (last) N elements of any array?

the next is syntax error...

$n=0;
#say $_ if($n++ < 5) for @list;

Answer 1

To print the first 5 items:

say for @list[0 .. 4];

To print the last 5 items:

say for @list[-5 .. -1];

Answer 2

Just use a list slice:

#!/usr/bin/perl
use strict;

my @list = map { int(rand*10) } 1..10;
print join(', ', @list[0..4]) . "\n";

Also, use strict, without exception, unless you really enjoy spending far too much time hunting down subtle scoping bugs.