my $best = 14; # actually, last value from $tokens.
for my $b (split /,/, $list) {
  $best = $b if $code{$b} < $code{$best};
}