perl script to compute 1-tube candidates at a distance of (floor(dspr/2) + 2) from two topologies