@arr3 = sort { $a->[1] <=> $b->[1] }
   map { [ $arr1[$_], $arr2[$_] ] }
      (0..$#arr1);
@arr1 = map { $_->[0] } @arr3;
@arr2 = map { $_->[1] } @arr3;