Help for this page
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];