Select Code to Download

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

foreach $c ("abbot","costello") {
   print "$c\n";
};

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

print "$_ $couples{$_}$/" for (keys %couples);