in reply to Re^2: Transpose a matrix of chars
in thread Transpose a matrix of chars
You could try:
my $max_cols = pop @{[sort{$a <=> $b} map { @$_- 1 } @rows]};
In Section
Seekers of Perl Wisdom