#!/usr/bin/perl -l

#23456789_123456789_123456789_123456789_123456789_123456789_
sub _{print shift()." is married to ".shift while@_}_ sort
%couples = (
    Fred=>"Wilma",
    Barney=>"Betty",
    George=>"Jane",
    Homer=>"Marge",
    Peter=>"Lois"
);