#!/usr/bin/perl
use v5.030;
use threads;
use threads::shared;
use PDL;

BEGIN { $PDL::no_clone_skip_warning = 1; }

my $lock : shared = 0;

PDL::srand(3);  # PDL 2.087

for my $tid (1..16) {
    threads->create(sub {
        my $output = "";
        for (1..1024) {

            my $r = random();
            $output .= sprintf "%.72f\n", $r;
        }
        lock $lock;
        print $output;
    });
}

$_->join for threads->list;