Problem with thread::shared hash values

I'm having some issues using thread and thread::shared to utilize a shared hash in the threads.  The idea is to have a shared memory cache in the form of a hash that has been shared.  However, it does not seem to be getting populated correctly.  Even after populating a value into the cache and sharing it, it does not persist for the next thread.  See the code snippet for a simplified version of what I'm trying to do.

I've even tried to share the individual values in the shared cache (ie: share($shared_cache{$var}) ) but that has not helped.Start Free Trial

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

#!/usr/bin/perl
 
use threads;
use threads::shared;
 
my %shared_cache;
share(%shared_cache);
 
for (my $i; $i < 10; $i++)
{
   my $result = threads->create(\&thread_function, $i);
}
 
sub thread_function($)
{
   my $var = shift;
   if ($shared_cache{$var})
   {
      print "found cached value\n";
   }
   else
   {
      print "no cached value, calculating and caching\n";
      $shared_cache{$var} = calculate_result($var);
   }
 
   return $shared_cache{$var};
}