tie %chat, "Tie::IxHash";
# other stuff
tie %chat, 'SDBM_File', $chat, O_CREAT | O_RDWR, 0644;