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