Select Code to Download

if (++$pos_count != $current[2]) {
            for my $pos ($pos_count .. $current[2]-1) {
                print join("\t", $current[1], $pos, '','', '1'), "\n";
            }
        }

        if (++$pos_count != $current[2]) {
            fill_interval($pos_count, @current);
        }

sub fill_interval {
    my ($pos_count, @current) = @_;
    my $margin = 8;
...
        }        
    }
}