map{print qq{$_ is married to $couples{$_}@{[chr 10]}}}sort keys%couples