use Data::Lock qw/ dunlock /; dunlock(@flds);