sub find {
	my $rc = 0;
	my $f = shift;
 	foreach my $key ( sort keys %dbm ) {
    		my($name, $number, $email, $addr1, $addr2) = split "\0", $dbm{$key};
    		if ($name eq $f) {
    			print "$name\n$number\n$email\n$addr1\n$addr2\n\n\n";
    			$rc = 1;
    			last;
    		}
  	}
}