my %hash = hash_init();

    print Dumper(%hash);
    delete( $hash{$del_id} );
    print Dumper(%hash);

    untie (%hash);