here is one idea.

@t = sort { $z[$a] <=> $z[$b] || $y[$a] <=> $y[$b] || $x[$a] <=> $x[$b
+] } (0..$#z);
@z = @z[@t];
@y = @y[@t];
@x = @x[@t];
[download]