Perl Programming/Keywords/lock

The lock keyword
THE lock function places an advisory lock on the shared variable or referenced object contained in THING until the lock goes out of scope.

If the argument is a scalar, the value returned is the scalar itself, or a reference, if the argument is an array, hash, or a subroutine.