Good solution, but i'll try to reduce memory consumption of it:

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

my @combined_sorted = map { $a[$_],$b[$_] } @index;
[download]