<td nowrap>
<select name="sogo">
EOM
foreach(0 .. $#sogo_p){
print "<option value=$_";
print " selected" if($sogo==$_);
print ">$_:$sogo_p[$_]\n";
}
print <<"EOM";
</select>
</td>
<td nowrap>
<select name="sogo2">
EOM
foreach(0 .. $#sogo_p){
print "<option value=$_";
print " selected" if($sogo2==$_);
print ">$_:$sogo_p[$_]\n";
}
print <<"EOM";
</select>
</td>
<th nowrap>称号</th>
<th nowrap>称号２</th>
sogo2;$in{'sogo2'},
<th nowrap>称号</th>
<th nowrap>称号２</th>
<td nowrap>$in{'sogo'}</td>
<td nowrap>$in{'sogo2'}</td>