1:<td nowrap>
2:<select name="sogo">
3:EOM
4: foreach(0 .. $#sogo_p){
5: print "<option value=$_";
6: print " selected" if($sogo==$_);
7: print ">$_:$sogo_p[$_]\n";
8: }
9: print <<"EOM";
10:</select>
11:</td>
12:<td nowrap>
13:<select name="sogo2">
14:EOM
15: foreach(0 .. $#sogo_p){
16: print "<option value=$_";
17: print " selected" if($sogo==$_);
18: print ">$_:$sogo_p[$_]\n";
19: }
20: print <<"EOM";
21:</select>
22:</td>