perl 中hash按值降序排列

写一个程序，读入一串单词（一个单词一行），输出每一个单词出现的次数，按照次数从大到小输出。
perl 中hash按值降序排列
#!/usr/bin/perl -w
sub hashValueDescendingNum {
KaTeX parse error: Expected '}', got 'EOF' at end of input: counts{b} <=> KaTeX parse error: Expected '}', got 'EOF' at end of input: counts{a};
}

print “enter the word \n”;
foreach(<>)
{
KaTeX parse error: Expected '}', got 'EOF' at end of input: counts{_}++;
}

foreach $key(sorthashValueDescendingNum(keys(print"$counts{$key}=> $key\n";
}