my @indicies = sort { $a[$a] <=> $a[$b] } 0..$#list;