for( my $i = 0; $i <= @Connections; $i++ )
		{
               # Berechnung eines Maßes für die Verbindungslänge
		my $diff = $Connections[$i][0] - $Connections[$i][1] ;
		$diff = $diff * $diff ;
               #????
		}