my %cols_idx = do { my $i = 0; map { $_ => $i++ } @cols };