%c=%couples,map print,map "$_ is married to $c{$_}",sort keys%c