my @sortedIdx = skeysort { $hexStr[$_] } (0..$#hexStr);  # line 58