elsif ($option eq 'r') {
     my ($number, $email, $address1, $address2) = split "\0", $dbm{$name};
  foreach (sort keys(%dbm)) {
    print "$dbm{$_}\n";