this only one of my subroutine the other its only for read the file and its working ... i check it! and the problem its the first if ... he cant find that match or word ORGANISM ... i checked if is write correctly .. it is ... i dont know ... the for loop in back is working! And file input is from genbank file (teste.gbk)

do u know there is a bio perl module that can shorten ur code and do the dirty wrk for ya as well as phraseing the file in to a perl data structure.... search cpan.org for bio perl or someone will post a link.