Select Code to Download

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