Help for this page
print $xml->{gene_seq}{$id}{'startpos'}, "\n";
#!/usr/bin/perl -w ... </many_genes>