my @idx = sort {$val[$a] <=> $val[$b]} 0 .. $#vals