$HREF = eval "\\\%$DB_name";
...
if ($HREF->{key} ...)