Select Code to Download

my %csvColumns = map {$csvColumns[$_] => $_} 0 .. $#csvColumns;

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