# Store
$dbm{$name}=join "\0",$number,$address,$citty,$emailaddress;
# Fetch
my ($number,$address,$citty,$emailaddress)=split /\0/,$dbm{$name};
Which would perfectly suitable for your limited requirements. (Well, it assumes that there are no \0 in the input data. A safe bet in this situation I think, and easily enforced) But certainly do look into using the module, although for something this simple I wouldnt bother with MLDBM at all. Now if you want to store a sophisticated data structure like a tree or something, then MLDBM gets pulled off the shelf.
---
demerphq
|