#!/usr/bin/perl -w
use strict;
my ($userin, $key, $value, %fred) ;
print "Type in a list of words.  Type done when finished.\n" ;

%fred = ("aaa" =>"aaapple", "bbb" => "bbbat") ;
while (($key, $value) = each(%fred)) {
print "key = $key value = $value\n" ;
}
delete $fred{"aaapple"} ;
print "This is after the deleted aaaple" ;
while (($key, $value) = each(%fred)) {
print "key = $key value = $value\n" ;
}