use Perl6::Form;

my @files = <DATA>;
my $files = join "", @files;

print "Number of cols: ";
my $colcount = <>;

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

print "\n\n";

print 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