while (($germline{AccNo}, $germline{GeneLocus}, $germline{aaSequence}) = $sth->fetchrow_array){
			for my $j (0 .. $#key) {
				print "<tr>\n<td>$key[$j]</td>\n<td>$germline{$key[$j]}</td>\n</tr>\n\n";
			}
		}