my @ind_srtd = sort {
  $array->[$a] cmp $array->[$b]
} (0..$#$array);

my @array_srtd = map { $array->[$_] } @ind_srtd;
my @array_which_srtd = map { $array_which->[$_] } @ind_srtd;