use XML::Simple;
use Data::Dumper;
my $xml   = XML::Simple->new();
my $body = '
 <all>
 <products>
  <item>
    <name>a</name>
    <price>1</price>
    <count>1</count>
  </item>
  <item>
    <name>b</name>
    <price>1</price>
    <count>1</count>
  </item>
 </products>
 </all>';
my $xhash = $xml->XMLin($body);
print Dumper($xhash);