#!/usr/bin/perl -w
##########################



#           keys        values
#          --------    -------
%amanda = (
	   'shirt'  => 'black',
	   'age'    => 18,
	   'eyes'   => 'brown',
	   );

# pull out one value
print " age is $amanda{age} \n\n";

# change a value
$amanda{shirt} = 'blue';

# print out the hash
for my $i (sort keys %amanda){
  print " $i => $amanda{$i} \n";
}
print "\n";

## clear the hash
# %amanda = (         );   # empty

# list of keys
my @keys = keys(%amanda);
print "keys are '@keys' \n";
print "number of keys is ", scalar(@keys), "\n";



# here's a list


