Select Code to Download

use Fcntl ':flock';

...
print $fh join "\n", @ordered;

close $fh;

use Fcntl ':flock';

...
truncate $fh, 0;
print $fh join "\n", @ordered;
close $fh;