#!/usr/bin/perl
use threads;
use strict;
use warnings;

my $count=0;
for (;;) {

print $count++.' ';
my $thr = threads->new(
         sub { my $a = [ 1 .. 10000] }
                )->join;

 undef $thr;
}