while( <INTERVAL> ) {
     ## ignore the first field on each line
     my( undef, $start, $end ) = split "\t", $_;
...