use XML::Fast;

my($hash)=xml2hash($xml);