Perl threads are not ready for Prime Time.

What does that mean? Who said it? And how will you know unless you try it?

Does it get easier? Of course, the devil is in the details, but then, you didn't give us any.

#! perl -slw
use strict;
use threads;
use Thread::Queue;
use Data::Dumper;

our $QMAX ||= 1000;
our $TMAX ||= 3;
our $N      ||= 1000000;

my $Q = new Thread::Queue;

sub thread {
    my $tid = threads->self->tid;
    for( 1 .. $N ) {
        $Q->enqueue( join ':', $tid, int rand( 10 ) );
        select undef, undef, undef, 0.01 while $Q->pending > $QMAX;
    }
    $Q->enqueue( undef );
}

threads->new( \&thread )->detach for 1 .. $TMAX;

my %collate;
for ( 1 .. $TMAX ) {
    while( my $data = $Q->dequeue() ) {
        my( $src, $value ) = split ':', $data;
        $collate{ $src }{ $value }++;
    }
}

print Dumper \%collate;
[download]