#!/usr/bin/perl -w

use strict;

my %fred = (red => 1,
	    white => 2,
	    green => 3);

while (my ($key, $value) = each %fred) {
  print "$key => $value\n";
  $value = 0;
}

while (my ($key, $value) = each %fred) {
  print "$key => $value\n";
}