http://qs321.pair.com?node_id=385922


in reply to Sort array1 according to sorting of array2

@arr1=@arr1[sort{$arr2[$a]<=>$arr2[$b]}0..$#arr2];

In Section Seekers of Perl Wisdom