Select Code to Download

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

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