Select Code to Download

%couples = (
    Fred=>"Wilma",
...
    Homer=>"Marge",
    Peter=>"Lois"
);

#! perl -l
%couples = (
    Fred=>"Wilma",
...
    Peter=>"Lois"
);
print foreach sort map {"$_ is married to $couples{$_}"} keys %couples