while (($key,$value) = each %$DB_name) {