perl, hash и сортировка

Сортировка ключей по численному сравнению ассоциированных значений:
foreach(sort {$hash{$a} <=> $hash{$b}} keys %hash) {
print $_,'=',$hash{$_},"\n";
}


Сортировка ключей по алфавиту ассоциированных значений:
foreach $key(sort {$hash{$a} cmp $hash{$b}} keys %hash){
print $key, " = ", $hash{$key},"\n";
}

найдено тут http://www.opennet.ru/docs/RUS/perl_hash/, но все время забывается.