また初歩的な質問で申し訳がないのですが、
foreach $line (@lstlines) {
　　　　　　　　($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$ptw) = split(/<>/,$line);
　　　　　　　　if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp; $hp = $php; $myjb = $pjb }
　　　　　　　　else {
if($ptw eq 1){$mark='城'}
elsif($ptw eq 2){$mark='町'}
elsif($ptw eq 3){$mark='山'}
elsif($ptw eq 4){$mark='海'}
elsif($ptw eq 5){$mark='砂'}
else{$mark='平'}
print qq|<option value="$pid">$pid：$mark:$pnm($pjb)\n| }
　　　　}
↑これでは、0000::質屋としか表示されません。。
なぜでしょうか？（いつも初歩的な質問ですみません（；；）

▼関連発言
│
└◆398:町表示 [masaki] 02/22 14:38
　└◆399:Re:町表示 [moon] 02/22 15:53
　　└◆400:Re[2]:町表示 [masaki] 02/22 17:39<-last