until ($discovered[$i] =~ "\n")