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