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