do {
    ++$element2;
} until (substr($contigfile[$element2], 0, 1) eq '>');