#!/usr/bin/perl 

%couples = (
   george => gracie,
   abbot => costello,
   johnson => boswell );
foreach $c (each %couples) {
   print "$c\n";
};

##</code><code>##

abbot
costello