my $max_cols = pop @{[sort{$a <=> $b} map { @$_- 1 } @rows]};