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

##</code><code>##

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