AccNo $result[0] GeneLocus data aaSequence data AccNo $result[1] GeneLocus data aaSequence data AccNo $result[2] GeneLocus data aaSequence data ##

##

$i=0;
my %germline;
my @key = ('AccNo', 'GeneLocus', 'aaSequence');

# get top 3 fasta-result-hit rows from germline dB
until($i==3){
	my $sql = "SELECT DISTINCT AccNo, GeneLocus, aaSequence FROM aaSEQ a, Ig_functional b
	WHERE a.aaID = b.RecNo AND AccNo = '$result[$i]';";	
	my $sth = $dbh->prepare($sql) or die "Could not prepare statement: " . $dbh->errstr;
	if ($sth->execute){						
		while (($germline{AccNo}, $germline{GeneLocus}, $germline{aaSequence}) = $sth->fetchrow_array){
			print "\n$key[$i]\n$germline{$key[$i]}\n\n\n";
		}	
	}
	$i++;
}
$dbh->disconnect();