my @sorted = sort { my_index_sort($a,$b) || $b cmp $a } @list;