Put an downwards-right arrow at the row/column index, hopefully hinting
to which axis is to be followed first. As the arrow goes down first,
hopefully it's clear the vertical axis contains the most significant
(first) character.
print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
print "</colgroup><col>\n";
for my $section (qw{thead tfoot}) {
print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
print "</colgroup><col>\n";
for my $section (qw{thead tfoot}) {
- print "<$section><tr><th> ";
+ print "<$section><tr><th>↳";
print '<th>', quote($_) for map {@$_} @chars2;
print "<th> \n";
}
print '<th>', quote($_) for map {@$_} @chars2;
print "<th> \n";
}