undef $lock;
if ($lock) ...