Select Code to Download

my %code = map { $_ => $i++ } split /,/, $tokens;
my $i = 0

my %code = map { $_ => $i++ } split /,/, $tokens;