sub WriteFasta { 
 
	my $hash_string = $_[0]; my $outfile = $_[1]; my $dna = ""; my $sp = ""; my $id = ""; 
 
	open (OUTFILE , ">>$outfile") or die ("Cannot open outfile fasta: $outfile. $!\n");   
		foreach my $string (keys $hash_string) { 
			if ($string =~ m/LOCUS (\s+)((\D+)\_(\d+)).+/o){ 
			  $id = $2; 
			}   
			if ($string =~ m/\tORGANISM(.+)/o) { 
            			 print $2; 
            			# $sp = $3;               	  
			} 
			   
			if ($string =~ m/^ORIGIN/) { 
			    print "x"; 
			    while ($string =~ (/.+/)) { 
			      my $dna .= $string; 
			       
			    } 
			    print $dna; 
			    $dna =~ s/[\s0-9]//g; 
			  } 
		 
		print OUTFILE ">" , $id , ' ' , "[", $sp , "]", "\n" , $dna; 
		 
		}	 
		 
	close OUTFILE; 
	return; 
}