http://www.perlmonks.org?node_id=173697


in reply to perl puzzle - cartoon couple registry (beginner, semi-golf)

My solution ended up nearly identical to BlueBlazerRegular's, but I dropped a bit of excess punctuation and whitespace, to come in with 21 chars to spare: 
#        1         2         3         4         5         6
#23456789012345678901234567890123456789012345678901234567890
print"$_ is married to $couples{$_}\n"for sort keys%couples

[download]
Bonus (for me, anyhow): I played with map a bit, and found that it was actually longer that way. 
#        1         2         3         4         5         6
#2345678901234567890123456789012345678901234567890123456789012
print map{"$_ is married to $couples{$_}\n"}sort keys%couples

[download]
Update: Whoops. I can get away with '\n' since it's not an actual 'newline', but may casual disregard of the "can't use a backslash" rule was just silly. I'm out!

In Section Meditations