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

 
##</code><code>##


foreach my $interval (<INTERVAL>){
			
	my @find_interval = split(/\t/, $interval);
	my $start = $find_interval[1]; 
	my $end = $find_interval[2];