Select Code to Download

#! perl -slw
use strict;
...
    and print "$_ overlaps with @{ $overlaps[ $_ ] }"
    for 0 .. $#overlaps;

0 : [ 8392560 41950559 ]
1 : [ 0 8392559 ]
...
0 overlaps with 2
1 overlaps with 2
2 overlaps with 3 4 5 6 7