Thanks, I did try to write them back but the file is too large and every so ofter is just deletes a large chunk of codes.

open (DB, ">".$codes_db) || die ("Can't open $codes_db");
flock (DB, 2) || die ("Can't lock $codes_db");
foreach $line(@buffer){ print DB "$line\n"; }
flock (DB, 8) || die ("Can't close $codes_db");
close (DB) || die ("Can't close $codes_db");
[download]

Is there anything I can do while the file is open in the while loop?