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

@array_a = @array_a[@sorted_indices];
@array_b = @array_b[@sorted_indices];