>>765 長くかくとこんなことしたいんですけどねぇ。。。
　　　　#SELECT始まり！
　　　　$HTMLStaLine .= qq|<select name="staid" size="10" multiple>\n|;
　　　　for ($i=0;$i<=$#GlobalLineidList;$i++){
　　　　　　　　#沿線名表示！
　　　　　　　　$HTMLStaLine .= qq|<option value="">----- $LINE[$GlobalLineidList[$i]]->{linename} -----</option>|;
　　　　　　　　undef @TMPSTALIST;
　　　　　　　　for ($j=0;$j<=$#STA;$j++){
　　　　　　　　　　　　if ($STA[$j]->{lineid} == $GlobalLineidList[$i]){
　　　　　　　　　　　　　　　　push (@TMPSTALIST,$STA[$j]);
　　　　　　　　　　　　}
　　　　　　　　}
　　　　　　　　#seqでソート
　　　　　　　　@TMPSTALIST = sort { (${TMPSTALIST[$a]->{seq}} <=> ${TMPSTALIST[$b]->{seq}}) } 0 .. $#TMPSTALIST;
　　　　　　　　#沿線に属する駅名一覧を表示！
　　　　　　　　foreach (@TMPSTALIST){
　　　　　　　　　　　　$HTMLStaLine .= qq|<option value="|.$TMPSTALIST[$_]->{staid}.qq|">|.$TMPSTALIST[$_]->{staname}.qq|</option>\n|;
　　　　　　　　}
　　　　}
　　　　#SELECT終わり！
　　　　$HTMLStaLine .=qq|</select>\n|;