foreach my $key ( sort keys %dbm ) {
    my($number, $email, $addr1, $addr2) = split "\0", $dbm{$key};
    print "$number\n$email\n$addr1\n$addr2\n";
  }