сортировка по локали

[Mike Lykov]

Здравствуйте.

кто подскажет, никак не пойму ;)

написал простой примерчик про сортировку русских слов в локали koi8-r.
он - РАБОТАЕТ.

use locale;                                                                     
                                                                                
%aa= ( 'asd1' => 'Цик', 'asd2' => 'Борк',  'asd3' => 'Арк',  'asd4' =>
'Дорк'); 
                                                                                
@sortedkeybyval = sort{$aa{$a} cmp $aa{$b}} keys %aa;                           
foreach (@sortedkeybyval) { print $_," - ", $aa{$_},"\n"; };    

прекрасно сортирует, прямо как по русски: ;)

asd3 - Арк
asd2 - Борк
asd4 - Дорк
asd1 - Цик

в реальной же программе, вроде ты теми же методами,
вроде все то же самое, но сортировка там более оригинальная:

А Б Ц Д Е Ф Г Х

и так далее ;)) То есть русские буквы соответсвуют по звучанию английским.
Как я этого добился - не понимаю. как исправить, чтобы было как выше?? ;)

-- 
Mike