从XML文件读取数据的问题

从XML文件读取数据的问题
有一XML文件..
<?xml version="1.0" ?>
- <genes genecount="94" geneevidence="false">
 <gene geneid="328" genesymbol="APEX1" genename="APEX nuclease (multifunctional DNA repair enzyme) 1" genesynonyms="APE, APE1, APEN, APEX, APX, HAP1, REF-1, REF1" genedescription="Apurinic." />
 
...........
...........
</genes>

结果希望是:
geneid,genesymbol,genename,genesynonyms
....
....

用XML::Simple似乎不行??
用什么好呢?

==================
use XML::Simple;


my $file = 'files/00188301.xml' || die 'cannot open xml file';
my $xs1 = XML::Simple->new();

my $doc = $xs1->XMLin($file);

foreach my $key (keys (%{$doc->{genes}})){

  print $doc->{genes}->{$key}->{gene}->{geneid} . "\n";
}