use strict;
use warnings;
use List::MoreUtils qw/natatime/;

my @array = qw(a b c e 1 2 3 4 5 3 f);

my $it = natatime 3, @array;
while ( my @vals = $it->() ) {
	print "@vals\n";
}