print "<hr>";
print "<table border=1>";
#type is an array that has 4 elememts new1,new2,new3,new4. 
foreach ($cgx=0; $cgx <= $#type; $cgx++) {
$typedb=$type[$cgx] . "db";
print "typedb $typedb\n";
tie %DECISIONS, 'DB_File', "$fdbl[2]clotdes$typedb";
#the fdbl is a flatfile that has different paths to different db files. in this instance, it gives /var/www/cgibin/local/clotdes(new1/new2/new3/new4)db

print "<td>\n";
print "$type[$cgx] info\n";
print "<FORM NAME=\"seeinfo\" action=\"../../../../cgi-bin/decisions.cgi\" method=\"POST\">\n";
print "<select NAME=\"clone\">\n";
foreach $ckey (sort keys %DECISIONS) {
print "<option>$ckey\n";

}

print "</select>\n";
print "<input type=\"hidden\" name=\"seeclone\" value=\"$type[$cgx]\" size=7><p>";
print "Filter<input type=\"radio\" name=\"simplify\" value=\"1\">";
print "<input type=\"submit\" value=\"View Info\">\n";
print "</form>\n";
$z++;
if ($z == 4) {
print "</td></tr><tr>\n";
}else{
print "</td>\n";
}
untie %DECISIONS;
}

##</code><code>##

 
<hr><table border=1>typedb newdb
<td>
new info
<FORM NAME="seeinfo" action="../../../../cgi-bin/decisions.cgi" method="POST">
<select NAME="clone">
<option>b01
<option>b02
<option>b03
</select>
<input type="hidden" name="seeinfo" value="pa" size=7><p>Filter<input type="radio" name="simplify" value="1"><input type="submit" value="View Info">
</form>
</td>

##</code><code>##