#ex_17-3
#Learning Perl, Appendix A, Exercise 17.3
# program 2:
dbmopen(%WORDS,"words",undef);
foreach $word (sort { $WORDS{$b} <=> $WORDS{$a} } keys %WORDS) {
  print "$word $WORDS{$word}\n";
}
dbmclose(%WORDS);