#!/usr/bin/env perl
use 5.012;
use List::MoreUtils qw/natatime/;

my @data = (5, 10, 12, 15, 11, 11, 12);

for (my $it = natatime 3, @data; my @it = $it->(); ) {
    say join(', ', @it);
}