use DBM::Deep;
tie my %total, 'DBM::Deep', $filename;