#!/usr/bin/perl -w

use strict;

my %animals=( 'cow'   => "bessie",
              'horse' => "ed",
              'duck'  => "goose",
              'dog'   => "rexx"
            );

print "my animals\n";
print_hash();

my $ranimals=\%animals;
$$ranimals{'duck'} = "franklin";

print "\nmy referenced animals\n";
print_hash();

sub print_hash
{
    for ( sort keys(%animals) )
    {
        print "$_ = $animals{$_}\n";
    }
}