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