$species1 = [-,+,-,+,-,-,+,-];
$species2 = [-,-,-,-,+,-,+,-];
$species3 = [-,-,-,+,-,-,-,-];
$species4 = [-,+,=,-,-,-,+,-];
$species5 = [-,+,-,+,-,+,+,+];

@tests = ($test1,$test2,$test3,$test4,$test5,$test6,$test7,$test8);

@genus = ($species1 $species2 $species3 $species4 $species5);



#(@positive,@negative) = separate_positive_negative()
 $heirarchy = create_unique_test_heirarchy(@test,@genus);

weel_pos = (-) = 


create_unique_test_heirarchy{
	my(@test,@genus) =  @_;
	
	foreach $test (@tests){
		foreach $species (@genus){
			(@positive, @negative,@week_pos,@strong_pos) = separate_positive_negative();
		
		 
		
	}
}

#
	#withing all species of genus 	
	#(@positive,@negative) = separate_positive_negative()	
	#
	#creat two groups of positive and negative test	
	#for each group (+ve and -ve)
		#again separate on the basis of + and - membrane till the separtion of last group