use warnings; use strict; use threads; use threads::shared; use Thread::Queue; use Wx; use Symbol; my %thread_hash; share(%thread_hash); ...