Select Code to Download

#! perl -l
%couples = (
...
    Peter=>"Lois"
);
print"$_ is married to $couples{$_}$*"for sort keys%couples

print"$_ is married to $c{$_}$*"for sort keys(%c=%couples)