#!/usr/bin/perl
#
# eg12: 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($k,$v) = each(%$ref) ) # print out all k,v pairs
{
     print "$k => $v\n";
}
