foreach(0 .. $#sogo_p){ print "<option value=$_"; print " selected" if($sogo==$_); print ">$_:$sogo_p[$_]\n"; } print <<"EOM";
foreach(0 .. $#sogo_p){ print "<option value=$_"; print " selected" if($sogo==$_); print ">$_:$sogo_p[$_]\n"; } print <<"EOM";