my $DataQueue = Thread::Queue->new; 
my $href = {'A'=>'1',
            'B'=>'2',
            'C'=>'3'
           };

$DataQueue->enqueue($href);

##</code><code>##

Invalid value for shared scalar at C:/Perl/lib/Thread/Queue.pm line 90.