$Acount = 4;		#I have set these values
	$Ccount = 3;		#eventually they will come		
				#from the program looking at
				#a line in a file	

	$i=0;
	$j=1;


	#############WHICH SCORE IS HIGHEST ?#############

	@scoring = qw ($Acount $Ccount $Dcount...more letters here);

	@con = qw (A,C,D...more letters here);		

	print "$scoring[$i] \n";
	print "$scoring[$j] \n";

	if ($scoring[$i]>$scoring[$j])
		{
		$consensus = $con[$i];
		$score = $scoring[$i];
		}

		
																	
	print "consensus is $consensus with a score of $score \n";