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