たしかこんなん。
my $dbtype="SDBM_File";
my $dbfile='my.db';
tie(my(%db), $dbtype, $dbfile, O_RDWR | O_CREAT, 0600);
$db{01}="myname01,aa@hotmail.com";
$db{02}="myname02,bb@hotmail.com";
while(my($k,$v)=each(%db)){
my ($name,$email) = split(/,/,$v);
}
untie(%db);
unlink <*.db.dir>;