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

##</code><code>##

foreach $key (sort keys %couples) {print "$key is married to $couples{$key}\n"};

##</code><code>##

foreach (sort keys %couples) {print "$_ is married to $couples{$_}\n"};

##</code><code>##

for (sort keys %couples) {print "$_ is married to $couples{$_}\n"};

##</code><code>##

print "$_ is married to $couples{$_}\n" for (sort keys %couples);