http://qs1969.pair.com?node_id=472232


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]};