my %code = sub { map { $_[$_] => $_ } 0..$#_ }->( split /,/, $tokens );