while( <INTERVAL> ) {
    my( $start, $end ) = split "\t", $_;