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