Select Code to Download

#!/usr/bin/perl
use warnings;
...
    print "ID_$id       $coord->{chrom}      $coord->{start}     $coor
+d->{end}    $coord->{strand}      $overlap\n";
}

ID_1       chr1      101     111    -      3
ID_2       chr1      112     113    -      1
...
ID_2       chr2      119     123    -      2
ID_1       chr3      125     130    -      1
ID_2       chr3      131     132    -      1