http://qs1969.pair.com?node_id=173978


in reply to Re: perl puzzle - cartoon couple registry (beginner, semi-golf)
in thread perl puzzle - cartoon couple registry (beginner, semi-golf)

#!/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)