my $chromosome;
get_chromosome(1, \$chromosome);

my $get_exon = sub {
    substr $chromosome, $_[0] - 1, $_[1] - $_[0] - 1;
};

while (my @ends = each %exon_endpoints)
{
    print $get_exon->(@ends), "\n\n";
}