my @l = <a bb c d e f g h>;

sub chunky(@l, $len) {
    (@l Z  (' ' xx $len - 1, "\n") xx *).join.substr(0, -1) ~ "\n";
}

print chunky(@l, 3);