@dates_now = map {$_ . "\n"} @dates_now;
	print $fh @dates_now;