my @sorted_a = @array_a[sort { $array_b[$a] <=> $array_b[$b] } 0..$#array_b];