use Data::Dumper;
my $d = XMLin( (join'', <DATA>),  
  KeyAttr        => 1, 
  'ForceArray' => [qw/subcategory product prod_id/]
);
print Dumper($d);