use v5.030;
use threads;
use PDL;

BEGIN { $PDL::no_clone_skip_warning = 1; }

for my $id (1..4) {
  threads->create(sub {
    for (1..8000) {
    # my $r = CORE::rand();
      my $r = PDL->random;
      say $r;
    }
  });
}

$_->join for threads->list;