#!/usr/bin/perl -w -l
%couples = (
    Fred=>"Wilma",
    Barney=>"Betty",
    George=>"Jane",
    Homer=>"Marge",
    Peter=>"Lois"
);
print"$h is married to $w"while(($h,$w)=each%couples)
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.