print"$_ is married to $a{$_}$*"for sort keys%{*a=*couples}