open (DB1,">>$E_DATA_DIR/$A::dat_id.db");
print DB1 ("$A::dat_id");
print DB1 ("|");
print DB1 ("$A::e_dat_name");
print DB1 ("|");
print DB1 ("$A::e_dat_url");
print DB1 ("|");
print DB1 ("$A::e_dat_key");
print DB1 ("|");
print DB1 ("$A::dat_lang");
print DB1 ("|");
print DB1 ("$A::dat_date");
print DB1 ("|");
print DB1 ("$A::dat_new");
print DB1 ("|");
print DB1 ("$A::dat_star");
print DB1 ("|");
print DB1 ("$A::dat_hits");
print DB1 ("|");
foreach $agegroups (@A::dat_age) {
print DB1 ("$agegroups ");
}
print DB1 ("|");

print DB1 ("$A::e_dat_edit1");
print DB1 ("|");
foreach $cat1 (@A::dat_cat1) {
print DB1 ("$cat1 ");
}
print DB1 ("|");

print DB1 ("$A::e_dat_edit2");
print DB1 ("|");
foreach $cat2 (@A::dat_cat2) {
print DB1 ("$cat2 ");
}
print DB1 ("|");

print DB1 ("$A::e_dat_edit3");
print DB1 ("|");
foreach $cat3 (@A::dat_cat3) {
print DB1 ("$cat3 ");
}
print DB1 ("|");
foreach $sub_cat3 (@A::dat_sub_cat3) {
print DB1 ("$sub_cat3 ");
}
print DB1 ("|");

print DB1 ("$A::e_dat_edit4");
print DB1 ("|");
foreach $cat4 (@A::dat_cat4) {
print DB1 ("$cat4 ");
}
print DB1 ("|");
foreach $sub_cat4 (@A::dat_sub_cat4) {
print DB1 ("$sub_cat4 ");
}
print DB1 ("|");

print DB1 ("$A::e_dat_edit5");
print DB1 ("|");
foreach $cat5 (@A::dat_cat5) {
print DB1 ("$cat5 ");
}
print DB1 ("|");
foreach $sub_cat5 (@A::dat_sub_cat5) {
print DB1 ("$sub_cat5 ");
}
print DB1 ("\n");
close (DB1);