use threads::shared;
use Carp qw(cluck);

my %all_shary_for_subs           :shared;
my %sim_info                     :shared;     

$all_shary_for_subs{'%sim_info'}=\%sim_info;

cluck("the sim_info glob ref is:" . \%sim_info . "\n" );
cluck("And in the hash it is:" . $all_shary_for_subs{'%sim_info'} . "\n"  )