my @indicies = sort { $list[$a] cmp $list[$b] } 0..$#list;
my @rearranged = @list2[@indicies];
[download]

-- Randal L. Schwartz, Perl hacker

---

update: Hold on. I solved the problem he stated. Not the problem he had. OK, nothing cannot be solved without a bit of indirection:

my @indicies = sort { $list[$a] cmp $list[$b] } 0..$#list;
my @rearranged;
@rearranged[@indicies] = sort @list2;
[download]

There. Make a sorted @list2 be disordered in the same way that @list is.

Also see my other solution.