my @code = split /,/, $tokens;

##</code><code>##

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

##</code><code>##

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