my $statement = $dbh->prepare( "SELECT Questions, ID from QA;" );
$statement->execute();
my ($question, $id);
$statement->bind_columns( \$question, \$id );
print "<ul>\n";
while ($statement->fetch) {
   print qq`
   <li><a href="[script_name]?case=2&id=$id">$question</li>`
}

##</code><code>##

my $id = $cgi->param( 'id' );
my $statement = $dbh->prepare( qq`SELECT Questions, Answers from QA where ID = "$id";` );
$statement->execute();
my ($question, $answer);
$statement->bind_columns( \$question, \$answer );
while ($statement->fetch) {
   print qq`
<h2>$question</h2>
<p>$answer</p>`
}