Select Code to Download

#!/usr/bin/perl

...
         sort { $a->[0][2] <=> $b->[0][2] || $a->[1][2] <=> $b->[1][2]
+ }
         @overlaps;
}