Select Code to Download

#!/usr/bin/perl -w
%couples = (
...
    Peter=>"Lois"
);
print "$_ is married to $couples{$_}\n" for (sort keys %couples);

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

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

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

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