use warnings;
use strict;

my @row = (
'col1:line1
col1:line2',

'col2:line1',

'col3:line1',

'col4:line1',

'col5:line1
col5:line2',

'col6:line1
col6:line2
col6:line3
col6:line4'
);

format STDOUT =
^>>>>>>>>|^>>>>>>>>|^>>>>>>>>|^>>>>>>>>|^>>>>>>>>|^>>>>>>>>|~~
@row
.

write;

##</code><code>##

format STDOUT =
^*|^*|^*|^*|^*|^*|~~
@row
.