$sogo_no = 0;
$log .= qq| 称 号：<select name="sogo_sel">|;
foreach(@sogo_p){
if($sogo_lv[$sogo_no]>0 ){
$log.=qq|<option value="$sogo_no"|;
if($sogo_txt eq "$sogo_p[$sogo_no] lv.$sogo_lv[$sogo_no]"){
$log.=qq| selected |;
}
$log.=qq|>$sogo_no $sogo_p[$sogo_no]|;
$log.=qq| lv.$sogo_lv[$sogo_no|;
$log.=qq|</option>|;
}
$sogo_no++;
}
$log .= qq|</select>|;