my %code = map { $_ => 1 } split /,/, $tokens;