ich würde noch die argumente für seek importieren:

ist lesbarer.
ausserdem lexikalische filehandles benutzen:
WasIsteinLexikalischerFileHandle

bitte lies mal http://perl-tutorial.org/, um auf den neuesten stand <u kommen. was man so im netz an schnipseln findet, kann teilweise schon sehr alt sein.

desweiteren ist das mit dem locking seit ewigkeiten eine faq, welche mit perl ausgeliefert wird!
su brauchst nur in der kommandozeile
perldoc -q locking
einzugeben. oder alternativ im browser:
"I still don't get locking. I just want to increment the number in the file. How can I do this?"
http://perldoc.perl.org/perlfaq5.html#I-still-don'...