use SDBM_File;

sub O_CREAT { 0x0100 }
sub O_BINARY { 0x8000 }
sub O_RDWR { 0x0002 }

tie( %h, "SDBM_File", 'testdb.sdbm', O_RDWR | O_CREAT | O_BINARY, 0666 ) ||
die "Can't do it: $!";

$h{1} = "ass";
$h{7} = "hhhh";

untie %h;

    Source: geocities.com/robinchatterjee