#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=861938
use warnings;

sub chunk_array
  {
  my $n = shift() - 1;
  "@_\n" =~ s/(?: \S*){$n}\K /\n/gr;
  }

my $v1 = chunk_array(3, "a", "bb", "c", "d", "e", "f", "g", "h");
$v1 eq "a bb c\nd e f\ng h\n" or die "error: '$v1'\n";
print $v1;

print "------------------------------\n";

my $v2 = chunk_array(3, "a", "bb", "c", "d", "e", "f");
$v2 eq "a bb c\nd e f\n" or die "error: '$v2'\n";
print $v2;

##</code><code>##

a bb c
d e f
g h
------------------------------
a bb c
d e f