Hi Chris,

Thanks for your time and solution. I ran your code and it works great as long as the gap in PIP is not large. In another word if PIP jumps from 240 to 280, it fills all the new col with "1" whereas we want it fill up to 248 from one margin and 272 from the other margin.

for my $pos ($previous[2] + 1 .. $previous[2] + 8) {
            print join("\t", $previous[1], $pos, '','','1'), "\n";
        }
[download]

is this the place to control the loop. Not pass more than 8?

Thank you again.

Pedro