#!/usr/bin/perl

use DB_File;

$db = "user.db";
tie(%db, 'DB_File',$db);

%ss = ('aaa'=>"ffffffff");

$db{user} = \%ss;

print $db{user}{aaa};