$hash{$a} = threads::shared::shared_clone(@array); ## This part works fine