フォームのプルダウンで都道府県を選ぶと、
送料が表示されるというもの。
　前提１　プルダウンのvalueは漢字で北海道…
　前提２　料金は別ファイルに記述　hokkaido=790…
で、次のようにしたのですが、

@pref = ("北海道","青森県","秋田県","岩手県"…）;
@price = ($hokkaido,$aomori,$akita,$iwate…);
$inx=0;
foreach $pref (@pref) {
　if (index ($pref,$form_data{'pref'})>= 0) {
　　last;
　　}
$inx++;
}
$soryo = $price[$inx];

誰か、もっといい方法、教えてください。