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

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