sub _ {$_ [0] - 1, $_ [1] - $_ [0] - 1}

while ((my $begin, my $end) =  each %exon_endpoints) {
    print substr ($chromosome => _ $begin, $end), "\n\n";
}