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