在Perl中同时排序两个数组

Question

我有两个阵列。

1. @store_chromosomes( This is an array of arrays)
2. @fitness_values of the same length.

@store_chromosomes = ( ("attr1", "attr2", "attr3"), ("attr4", "attr5", "attr6"),  ("attr_m", "attr_n", "attr_o")); #Just an example
@fitness_values=(-0.3456, -0.6789, 0.5678); #just an example

@fitness_values中与@store_chromosomes中的元素对应的元素，即-0.3456，为("attr1", "attr2", "attr3")属性生成，依此类推。

我需要按@fitness_values降序排列元素，即(-0.6789, -0.3456, 0.5678)，同时我需要排列@store_chromosomes的元素，对应{{1}的顺序}，即@fitness_values。

对于(("attr4", "attr5", "attr6"), ("attr1", "attr2", "attr3"), ("attr_m", "attr_n", "attr_o") )，我可以@fitness_values执行此操作。但是如何同时为数组@fitness_values = sort{4b<=>$a} @fitness_values执行此操作。