Select Code to Download

use threads;
use threads::shared;
...
my $q = Thread::Queue->new();    # A new empty queue

$q->enqueue(\%hash);

my $hugedata = <BIGSLURP>;

...

# $hugedata = undef; # <<< if done with it, then unload it, otherwise 
+...
threads->create(...); # ... hugedata is duplicated, %hash is not.