Select Code to Download

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

foreach my $interval (<INTERVAL>){
...
    my $start = $find_interval[1]; 
    my $end = $find_interval[2];