@sortindex=sort { $newa[$a] cmp $newa[$b] } (0..$#newa);