for (my $pos = 1; $pos <= length($sequence); $pos++) {
    ...
    foreach my $k (...) {
        ...
        if ($pos == $p1) {
            ...
            for (my $p = ...) {
                ...
                $pos++;
            }
        }
    }
    ...
}