use MLDBM;
tie (%myhash, MLDBM, "filename", O_RDWR|O_CREAT, 0664);
%myhash = { one => [0, 1, 2], employee => {serial_num => 1, name => "bob"}, mary => 7};