Perhaps change the while loop.

        while (($germline{AccNo}, $germline{GeneLocus}, $germline{aaSe
+quence}) = $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";
            }
        }
[download]