#!/usr/bin/perl -w
%animals = ('donald'=>'duck', 'mickey'=>'mouse', 'cheshire'=>'cat');

#set reference for hash
$fer = \%animals;
print "The value of \$fer is $fer\n";
print "The value for the key \"mickey\" is $$fer['mickey']\n";