#! perl
use strict;
use warnings;
use Data::Dumper;

my %hash     = ( Fred => 'Wilma', Barney => 'Betty' );
my $ref      =  \%hash;
my $copy     = { %hash };
$hash{Homer} =  'Marge';    # Alter the original hash

print "\nReference: ", Dumper($ref);
print "\nCopy:      ", Dumper($copy);