use DBMS ;
    $x=tie %hash, 'DBMS', $type,$name;
    # Use the %hash array.
    $hash{ aap } = noot;
    foreach $k (keys(%hash)) {
        print "$k - $hash{ $k }\n";
        };
    # and destroy..
    undef $x;