## in the main thread:
my $outputMutex : shared;
...
open OUTFILE, '>', ...

## In the worker threads
    ...
    {
        lock $outputMutex;
        print OUTFILE ...
    }