scheinbar funktioniert das bei mir nicht richtig da eine datei schon zweimal geschrottet wurde

nach dem ersten mal hab ich alle lesevorgänge mit flock folgendermaßen versehen:

$db_use_flock = 1;
$LOCK_EX = 2;

$i=0; @membadata="";
open (FILE, "$memberfile");
flock(FILE, $LOCK_EX) unless (!$db_use_flock);
while ( <FILE> ) { $membadata[$i] = "$_"; $i+=1; }
close (FILE);

alle schreibvorgänge ebenfalls mit nem
flock(FILE, $LOCK_EX) unless (!$db_use_flock);
hinter die open-zeile

leider wurde das file erneut geschrottet nach den änderungen, hab ich da irgendetwas falsch gemacht?