my %hoh = ( a => \%hash_a, b => \%hash_b, c => \%hash_c ); store \%hoh, 'HoH.sto'; # ... # elsewhere... my $hoh = retrieve 'HoH.sto' or die "failed to retrieve stored hoh"; my $hash_c = $hoh->{ c };