>>66
sort {$a<=$b>=$KIK} keys %doragonash

の方がうまくいきますね。それよりもあなたの知性の低さは迷惑です。
早く首吊って死んでくれることを祈ってます。