# 1 2 3 4 5 6 #234567890123456789012345678901234567890123456789012345678901234 {(@c=each%couples)&&printf("%s is married to %s%c",@c,10)&&redo} #### # Update: trickier, same char. count {(@c=each%couples)?printf("%s is married to %s%c",@c,10)&redo:1}