my $i = 0;
while (@col = $sth->fetchrow()) {
        $i++;
        print "<INPUT TYPE=\"checkbox\" NAME=\"tissues\" VALUE=\"$col[0]\">$col[0];\n";
	}


$sth->finish;

	print "<br>";
	print "The mirna expression level should be: <br>\n";
	print "Greater than :<INPUT TYPE=\"TEXT\" NAME=\"greater\"<br>\n";
	print "Lower than :<INPUT TYPE=\"TEXT\" NAME=\"lower\"<br>\n";
	print "<INPUT TYPE=\"checkbox\" NAME=\"hsa_mirna\" VALUE=\"hsa-mir-\">hsa-mir-\n";
	print "OR\n";
	print "<INPUT TYPE=\"checkbox\" NAME=\"block\" VALUE=\"block\">block\n";
	print "<INPUT TYPE =\"textbox\" NAME=\"number\"\n";

		
print '<INPUT TYPE = SUBMIT VALUE="Click To Submit">';
print '<INPUT TYPE=RESET></FORM>';


print '</body></html>';