Берем пример:
use MLDBM;
use Data::Dumper;
use Fcntl;
tie %db, \'MLDBM\', \'testmldbm\', O_CREAT|O_RDWR, 0640 or die $!;
$db{\'test\'} = {\'burnt\' => \'umber\', \'brownian\' => \'motion\'};
untie %db;
tie %db, \'MLDBM\', \'testmldbm\', O_CREAT|O_RDWR, 0640 or die $!;
print Dumper($db{\'test\'});
untie %db;
Что получаешь?