my @tokens = qw (32 15 4 72 13 28 14);
my $i=0;
my %tokens = map {$_ => $i++}@tokens;