#!/usr/bin/perl
use strict;
use warnings;

my @array = 0 .. 30;
my $next = by_groups_of( 3, @array );

while ( my @group = $next->() ) {
    print "@group\n";
}

sub by_groups_of {
    my $by = shift;
    return sub { () } if ! $by || $by =~ /\D/ || ! @_;
    my @list = @_;  # Make a copy in case it changes

    my $end = $#list;
    my $pos = 0;
    my $done;

    return sub {
        return () if $done;
        my $stop = $pos + $by - 1 > $end ? $end : $pos + $by - 1;
        my @sub = @list[ $pos .. $stop ];
        $pos += $by - 1;
        $done = 1 if $stop == $end;
        return @sub;
    }
}