foreach (0..$#names) {
	my $dist = (($distances[$_]*$xaxisstep)+42);
	my @tmp = split /:/, $names[$_];
	my @tmp1;
	if (($#tmp+1)==2) {
		foreach (@tmp){ 
			$_++;
			print PS " 42.00 $labelmarks{$_} mt $dist $labelmarks{$_} ls\n";
		}
		print PS " $dist $labelmarks{${tmp[0]}} mt $dist $labelmarks{${tmp[1]}} ls\n";
		$xlabelmarks{$tmp[0].":".$tmp[1]}= $dist;
		$labelmarks{$tmp[0].":".$tmp[1]} = (($labelmarks{$tmp[0]}+$labelmarks{$tmp[1]})/2);
		delete ($labelmarks{$tmp[0]});
		delete ($labelmarks{$tmp[1]});	
	}