$xx                      = "xx"; 
$yy                      = "yy"; 
@zone_Nw_Ip_Val          = ($xx,$yy); 
%zone_Nw_Ip; 
$zone_Nw_Ip{"eq"}        = [@zone_Nw_Ip_Val]; 
$zone_Nw_Ip{"neq"}       = [@zone_Nw_Ip_Val]; 
$zone_Nw_Ip{"member-of"} = [@zone_Nw_Ip_Val]; 
%zone_Nw; 
$zone_Nw{"zone_Nw_Ip"}   = {%zone_Nw_Ip};  
%zone_hash; 
$zone_hash{"Nw"}         = {%zone_Nw};

foreach  $attribute_type (sort keys %zone_hash) { 
  foreach  $attribute (sort keys %{$zone_hash{$attribute_type}}) { 
    foreach $operator_type ( sort keys %{$zone_hash{$attribute_type}{$attribute}}) { 
      foreach  $value ( @{$zone_hash{$attribute_type}{$attribute}{$operator_type}}) { 
        print "\n attribute_type --> $attribute_type  attribute--> $attribute operator_type --> $operator_type   "; 
      } 
    } 
  }    
}