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