[rrr]$ cat /tmp/test_storable_shared.pl
#!/usr/bin/perl

use strict;
use warnings;

use Storable;
use threads;
use threads::shared;

my $file = "fff";

my $href_1 = shared_clone({ a => 1});

store($href_1, $file);

my $href_2 = retrieve($file);

printf "%s => %s\n", $_, $href_2->{$_}  for keys %$href_2;

[rrr]$