# Store
$dbm{$name}=join "\0",$number,$address,$citty,$emailaddress;
# Fetch
my ($number,$address,$citty,$emailaddress)=split /\0/,$dbm{$name};