if($test_queue_any){
      $queue_any->enqueue(%rec);
    }else{
      $queue->enqueue(\%rec);
    }

##</code><code>##

C:\test>TQ-TQA-b.pl
START LOAD 1
START LOAD 2

...

START LOAD 15
START LOAD 16
START WORKER 17
START WORKER 18

...

START WORKER 31
START WORKER 32
STOP LOAD 6
STOP LOAD 1

...

STOP LOAD 12
STOP LOAD 16
STOP WORKER 23
STOP WORKER 19

...

STOP WORKER 20
STOP WORKER 26
------------------------------------
TEST QUEUE:15(seconds)
------------------------------------
Enter an key to continue...

START LOAD 33
START LOAD 34

...

START LOAD 47
START LOAD 48
START WORKER 49
START WORKER 50

...

START WORKER 63
START WORKER 64
STOP LOAD 33
STOP LOAD 35

...

STOP LOAD 48
Odd number of elements in hash assignment at C:\test\TQ-TQA-b.pl line 80, <STDIN> line 1.
STOP WORKER 58
Odd number of elements in hash assignment at C:\test\TQ-TQA-b.pl line 80, <STDIN> line 1.
Odd number of elements in hash assignment at C:\test\TQ-TQA-b.pl line 80, <STDIN> line 1.

...

Odd number of elements in hash assignment at C:\test\TQ-TQA-b.pl line 80, <STDIN> line 1.
STOP WORKER 53
STOP WORKER 63
------------------------------------
TEST QUEUE ANY:20(seconds)
------------------------------------