@indices = sort {$dist[$a]<=>$dist[$b]} 0..$#dist;
@dist = @dist[@indices];
@x = @x[@indices];
@y = @y[@indices];
@z = @z[@indices];
@name = @name[@incides];