@input_array = N1 N2 N3 N6 N7
@input_A = N1 N3 N11 N11 N10 N16
@input_B = N3 N6 N2 N7 N16 N19

##</code><code>##

   if (grep { @input_B eq $_ } @input_array) 
   {
   	if (grep { @input_A eq $_ } @input_array)
   	{
		foreach my $inputKey (@input_array)
		{
			@{$primaryCC0{$inputKey}} = (1,1); # each key of the hash has an array with 2 values
		} 
		
		foreach my $key (sort keys %primaryCC0) # to display value CC0 and CC1
		{
			my ($CC0, $CC1) = @{$primaryCC0{$key}};
			print "CC0[$key] = $CC0\n";
			print "CC1[$key] = $CC1\n\n";
		}	
   	}
   	else
   	{print "only 1 input is PI";}
   }
   else
   {print "this is a wire\n\n";}