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

[download]

In Section Seekers of Perl Wisdom