CSV形式の名簿を住所で都道府県別に表示したいんですが、
以下のようにソートすると当然、文字コード順で愛知（アイチ）、
愛媛（アイヒメ）……という順番になります。（[18]が住所です）

-----------------------------------------------------------
# 都道府県別にソート
if($sort == 3){
@LINES = sort { (split(/\,/,$a))[18] cmp (split(/\,/,$b))[18] } @LINES;
}
-----------------------------------------------------------

これを都道府県コード順にソートするにはどうしたらよろしい
でしょうか？
http://www2.odn.ne.jp/sasabomb/tables/jisx0401.html

もちろんCSVに都道府県コードは含まれていません。どなたか
ご教示よろしくおながいします。