print RECORD "$val\n";
close RECORD; # automatically releases the lock