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