use List::MoreUtils qw( natatime );

my $i = natatime(3, @a);
while (my @group = $it->()) {
   ...
}