#!/usr/bin/perl
#
# eg13: second hash ref example
#
use strict;
use warnings;

my $ref = { duncan => "d.white", bilbo => "b.baggins" };
$ref->{frodo} = "f.baggins";     # store a new key, value pair
delete $ref->{duncan};           # deletes a k,v pair
while( my($key,$value) = each(%$ref) ) # print out all pairs
{
      print "$key => $value\n";
}
