5개씩 묶기

group5.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;

my @m = 1..17;

my @m5;

my $step = 5;
my ($is, $ie) = (0, $step-1);
while (1) {
    push @m5, [ @m[$is .. $ie] ];
    last if $ie >= $#m;
    $is += $step;
    $ie += ($#m-$ie > $step ? $step : $#m-$ie);
}

print Dumper(\@m5);