#ex_17-1 #Learning Perl Appendix A, Exercise 17.1 dbmopen(%ALIAS, "/etc/aliases", undef) || die "No aliases!: $!"; while (($key,$value) = each(%ALIAS)) { chop($key,$value); print "$key $value\n"; }