#!/usr/local/bin/perl

use strict;
use warnings;

my %couples = (
   george  => 'gracie',
   abbot   => 'costello',
   johnson => 'boswell',
);

my( $key, $val );

# scalar context - return keys one at a time
$key = each %couples;
print "$key : $couples{$key}\n";

$key = each %couples;
print "$key : $couples{$key}\n";

$key = each %couples;
print "$key : $couples{$key}\n";

# reset each's internal iterator
$key = each %couples;

# list context
while ( ($key, $val) = each %couples ) {
  print "$key - $val\n";
}