my @code = split /,/, $tokens;
my %code = map { $code[$_] => $_ } 0..$#code;