my $indb = retrieve('input_hash.perl.db');
my $copydb = shared_clone( $indb );

..
..
my $thr1 = threads->new(\&thrd_run, $copydb);

..