#        1         2         3         4         5         6
#23456789012345678901234567890123456789012345678901234567890
print"$_ is married to $couples{$_}\n"for sort keys%couples