use DB_File;

my %hash;
tie (%hash, 'DB_File', 'hash.dbm', O_CREAT|O_RDWR) || die $!;
%hash=(
    '000001' => 'ITEM _First',
    '000002' => 'Item B',
    '000003' => 'House',
    '000004' => 'Service C',
    '000005' => 'Service X',
    '000006' => 'Service Z',
    '00007b' => 'Adjust Area',
    '020902' => 'Campus',
    '0sdc45' => 'Unit C',
    '000011' => 'Unit B',
    '0wed45' => 'Lower Level',
    '0ws456' => 'Cars',
    '02100m' => 'Numbers'
);

##</code><code>##

use DB_File;

my %hash
tie (%hash, 'DB_File', 'hash.dbm', O_RDWR) || die $!;

##</code><code>##

my %hash
tie (%hash, 'DB_File', 'hash.dbm', O_RDONLY) || die $!;