Select Code to Download

#!/usr/bin/perl -l
%couples = (
...
  Pter=>"Lous"
);
map print, map "$_ is married to $couples{$_}",sort keys%couples

%c=%couples,map print,map "$_ is married to $c{$_}",sort keys%c