Select Code to Download

my @aoh = ( \%hash_a, \%hash_b, \%hash_c );
store \@aoh, 'AoH.sto';
...
# elsewhere...
my $aoh = retrieve 'AoH.sto' or die "failed to retrieve stored aoh";
my $hash_c = $aoh->[ 2 ];

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 };