print "$_ is married to $couples{$_}\n" for (sort keys %couples);