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