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