my $tokens = "32,15,4,72,13,28,14";
my %code;
my $i = 0;
for my $t (split(/,/, $tokens)) {
  $code{$t} = $i++;
}