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