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

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