sub get_exon {
    return substr($_[0], $_[1] - 1, $_[2] - $_[1] + 1);
}