@SConnections = sort { ($a->[1]-$a->[0]) <=> ($b->[1]-$b->[0]) } @Connections;