Регистрозависимая сортировка

День добрый. подскажите как в perl сделать регистрозависимую сортировку? что-то Perl Cookbook я этого не нашел. конструкция

setlocale(LC_ALL,'ru'); setlocale(LC_COLLATE,'ru'); @SortedArray = sort {$hash{$a} cmp $hash{$b}} keys %hash;

возвращает список отсортированный по алфавиту, но мне надо, чтом в списке заглавные буквы шли впереди.