#!/usr/bin/perl
# the retreiver
use strict;
use warnings;
use Data::Dumper;
use Storable;

my (%kids_of_wife,$man,$wife);
#$href = retrieve("zzwifehash");        # by ref
%kids_of_wife = %{retrieve('zzwifehash')};   # direct to hash
	
print '################################################',"\n";

foreach (keys %kids_of_wife) {
    print $_,"\n";
    }
print '################################################',"\n";

foreach (keys %kids_of_wife) {
    print foreach (keys %{$kids_of_wife{$_}}),"\n";
    }
print '################################################',"\n";    

foreach (keys %kids_of_wife) {
        my $man = $_;
        foreach (keys %{$kids_of_wife{$man}}){;
        print $_,"\n";
        my $wife = $_;
	print @{$kids_of_wife{$man}{$wife}},"\n";  
    }}
print '################################################',"\n";    

foreach (keys %kids_of_wife) {
        $man = $_;
        foreach (keys %{$kids_of_wife{$man}}){;
        $wife = $_;
	print "$man + $wife = ";
	print "@{$kids_of_wife{$man}{$wife}}\n";  
    }}
print '################################################',"\n";    

#print Dumper(%kids_of_wife);