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