open(W_TXT,">$file") or die($!);
print W_TXT "$_ for(@entries)";
close W_TXT;