use NDBM_File;

    tie(%x, 'NDBM_File', 'karma.db', 1, 0);
    $x{$user}++;
    untie(%x);