der lock ist hier ueberfluessig, da die Variable im Hauptthread nicht veraendert wird. lock ist sowas aehnliches wie flock, halt nur fuer threads. unlock gibt es leider nicht, sondern der lock bleibt bis ende des blockes aktiv. siehe perldoc threads::shared