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