#!/usr/bin/perl -l
%couples = (
  Fred=>"Wilma",
  Barney=>"Betty",
  George=>"Jane",
  Homer=>"Marge",
  Pter=>"Lous"
);
map print, map "$_ is married to $couples{$_}",sort keys%couples

##</code><code>##

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