printf"$_ is married to $couples{$_}%c",10 for sort keys%couples

##</code><code>##

$:=~m{.(.)}s and print "something$1"