foreach $c (each %couples) {
   print "$c\n";
};