# # http://stackoverflow.com/a/24774853/180275 # use warnings; use strict; use Perl6::Form; my $cols = 3; my @list = qw(abc def ghi jklmnop q rst uv wxy z); print form q/ {:[{*}[:} / x $cols, ( \@list ) x $cols ;;; __END__ the programm prints abc jklmnop uv def q wxy ghi rst z