请教如果提供perl对xml解析的效率

请教如果提供perl对xml解析的效率
请教如果提供perl对xml解析的效率，
需要解析的cm.xml有40万行记录，文件大小为10M,用下边代码解析出来时，要用15分钟，用甚么办法可以提高程序的执行效率

代码如下#!/usr/local/bin/perl
use strict;
use DBI;
use Data::Dumper;
use Date::Format;
use Time::ParseDate;
use XML::Simple;
my $config="cm.xml";
system(date);
my $ref=eval { XMLin($config) };
print "start\n";
if ($@){
my $err_msg1="data file error: $config";
my $err_msg2=$@;
print "$err_msg1\n$err_msg2\n";}
my %hash=%$ref;
while ((my $key,my $values)=each%hash)
{print "$key,$values\n";
}
system(date);

你可以把第一次分离的结果.
你可以把第一次分离的结果 cache ，下次的 parsing 的速度应该可以提高很多。看文档：
http://search.cpan.org/~grantm/XML-Simple-2.16/lib/XML/Simple.pm#Cache_=%3E_[_cache_schemes_]_#_in_-_advanced

非常感谢！.