print $xml->{gene_seq}{$id}{'startpos'}, "\n";