Select Code to Download

my @values = (
    { name => 'fred', index => 2 },
...
);

my @sorted_values = sort { $a->{index} <=> $b->{index} } @values;

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

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