use strict;
use warnings;

use threads;
use threads::shared;

use Thread::Queue;

my @ary :shared = qw( a b c );

my $q = Thread::Queue->new();
$q->enqueue(\@ary);
$q->enqueue(undef);  # One for each consumer.

while (my $ar1 = $q->dequeue()) {
    print "array reference : $ar1\n@$ar1\n";
}