>>9
sort命令使えば一行でできるよ。

my @sortedkeys = sort { /* ここに配列の二番目を比較する方法を書く */ } keys(%hoge);