my %amy = ( name => "Amy Lester" );
my %person =
    (
    name => "Andy Lester",
    phone => 7660,
    email => {
        work => 'alester@fsc.follett.com',
        home => [ 'andy@petdance.com', 'andy@chicagomusic.com' ],
        }
    spouse => \%amy,
    );