perl - 指定されたキーの順序に従って並べ替えます

Question

注文を含む配列が与えられた場合

my $ord=("USA",'IN',"AUS","NZ","NEP","CHN","ARG","UK");

また、ハッシュが与えられます：

my %hash = ("IN" => 'val1', "AUS" => 'val2', 
            "USA" => 'val3',   "UK" => 'val4',
             "CHN"=>'val5',"UK"=>'val6',
              "NZ"='val7',"IN"=>'val8',
               "NEP"=>'val9',ARG=>'val10',
                 "IN"=>'val11'); 

このハッシュをキーに基づいて $ord の順にソートする必要があります。

つまり、ソート後、出力は次のようになります。

"USA"=>'val3'
"IN"=>'val1'
"IN"=>'val8'
"IN"=>'val11'
........
.......
"UK"=>'val4'

perlでそれを行う簡単な方法はありますか? または、そのような関数を自分で作成する必要がありますか?