use strict;
use warnings;
use XML::Simple;
use CGI ':standard';
use Data::Dumper;

#Variable
my $countersubs = 0;
my $counterchan = 0;
my $subprod = 'asa';
my $counterprod = 0;

my $prodid = '3';
my $schan = 'j';

print header;

my $arrays = [qw/subcategory name packaging_qty receipe description product paragraph comments channel brand conditionning product_id heading photo/];

print "Test2\n";
my $category = XMLin(\*DATA, keyattr => 1, forcearray => $arrays) || die "can't open the file";


foreach my $subcategory (@{$category->{'subcategory'}}) 
{
	my $inssub = $category->{'subcategory'}[$countersubs]{'name'} || die "An error occur!";

	if ($inssub eq $subprod)
	{
		foreach my $product (@{$subcategory->{'product'}}) 
		{
			foreach my $product_id (@{$product->{'product_id'}}) 
			{
				if ($product_id eq $prodid) 
				{
					foreach my $channel (@{$product->{'channel'}}) 
					{
						if ($channel eq $schan) 
						{
							delete $category->{'subcategory'}[$countersubs]{'product'}[$counterprod]{'channel'} || die "Error";
							print XMLout($category, xmldecl => '<?xml version="1.0" encoding="UTF-8"?><?xml-stylesheet type="text/xsl" href="products.xsl"?>', rootname =>'category');
				
							exit 1;

						}

						$counterchan++;

					}
				 }

			}

			$counterprod++;
		}
	}

	$countersubs++;
}

__DATA__
<?xml version="1.0" encoding="UTF-8"?><?xml-stylesheet type="text/xsl" href="products.xsl"?>
<category name="Coffee">
  <subcategory name="loop">
    <comments>
      <paragraph>jk</paragraph>
    </comments>
    <product recipe="/recipes/coffee1333.html">Coffee<brand>d</brand>
      <channel>d</channel>
      <channel>g</channel>
      <conditionning unit="d">d</conditionning>
      <description>d</description>
      <packaging_qty>d</packaging_qty>
      <product_id>d</product_id>
    </product>
  </subcategory>
  <subcategory name="asa">
    <comments>
      <paragraph>dsfs</paragraph>
    </comments>
    <product recipe="/recipes/coffee1333.html">Coffee<brand>3</brand>
      <channel>j</channel>
      <channel>j</channel>
      <conditionning unit="3">3</conditionning>
      <description>3</description>
      <packaging_qty>3</packaging_qty>
      <product_id>3</product_id>
    </product>
  </subcategory>
</category>
</readmore>