Help for this page
printf"$_ is married to $couples{$_}%c",10 for sort keys%couples
$:=~m{.(.)}s and print "something$1"