$ORG[0]->{kana} = "カリフォルニア";
$ORG[1]->{kana} = "ロンドン";
$ORG[2]->{kana} = "アラバマ";
$ORG[3]->{kana} = "アラスカ";
・・・てかんじで、地名が入っているんですが、

これを並び替えたいと思ってます。
その基準は、
（１）あらかじめ定められたいくつかの地名は、優先的に、定められた順番で表示
（２）それ以外の地名は、その後にアイウエオ順で表示
です。

（１）の地名は、@seq = ("ニューヨーク","ロンドン","パリ"・・・・);
というように（この順番で）格納されているものとします。


（２）だけなら、

@tmp = sort { (${ORG[$a]->{kana}} cmp ${ORG[$b]->{kana}}) } 0 .. $#ORG;
foreach (@tmp) { push(@tmp_ORG,$ORG[$_]);}
@ORG = @tmp_ORG;
undef @tmp_ORG;
でいいとわかるんですが・・・。

これのどこに（１）を組み込めばいいのか・・・