if (@data_out) {
	open (DATAOUT, ">> $outfile") || die "can't open $outfile: $!";
		print DATAOUT @data_out;
	close DATAOUT;
}