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