# subroutine name: writehash_nolock
# Input: filename, hash reference
# Writes hash to file in format: <key>\t<value>
sub writehash_nolock {
	my($datafile,$r_rows) = @_;
	local *DATA;
	if (open(DATA,">$datafile")) {
		foreach (keys %$r_rows) {
			print DATA safe_tbl($_)."\t".safe_tbl(${$r_rows}{$_})."\n";
		}
		close(DATA);
		chmod(0666,$datafile);
	} else {
		die("Error in subroutine writehash: Can't open $datafile. Reason: $!");
	}

}