$Q->enqueue( 1000..2000, (undef) x 4 );

##</code><code>##

->enqueue(LIST)
Adds a list of items onto the end of the queue.

##</code><code>##

karls-mac-mini:monks karl$ ./queue.pl 
bless({
  # tied threads::shared::tie
  queue => [
    # tied threads::shared::tie
    1000 .. 2000,
    undef,
    undef,
    undef,
    undef,
  ],
}, "Thread::Queue")
Took 13.820966 seconds