#! perl -l
%couples = (
    Fred=>"Wilma",
    Barney=>"Betty",
    George=>"Jane",
    Homer=>"Marge",
    Peter=>"Lois"
);
print"$_ is married to $couples{$_}$*"for sort keys%couples


##</code><code>##

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