my $max_col = (sort {$a <=> $b} map $#$_, @rows)[-1];