$c=[{Fred=>1,
     Barney=>2,
     George=>3,
     Homer=>4,
     Peter=>5}
    "Wilma",
    "Betty",
    "Jane",
    "Marge",
    "Lois"
];
while(my($h,$w)=each %$c){print"$h is married to $w\n";}