use Perl6::Form;

my @files = @( ~< *DATA );
my $files = join "", @files;

print $^STDOUT, "Number of cols: ";
my $colcount = ~< *ARGV;

print $^STDOUT, < form 
	'{:[{*}[:}  ' x $colcount,
	($files) x $colcount;

print $^STDOUT, "\n\n";

print $^STDOUT, < form 
	'{:[{*}[:}  ' x $colcount,
	(\@files) x $colcount;


__DATA__
file1
file2
file3
file4
file5
file6
file7
file8
file9
file10
file11
file12
and this is lucky file13
file14
file15
file16
file17
file18
file19