while (my ($c,$d) = each %couples){
  print "$c $d\n";
}