#!/usr/bin/perl
use strict;
use warnings;

use Data::Dumper; $Data::Dumper::Sortkeys = 1;

my %h1 = (qw/a 1 b 2 c 3 d 4/);
print "Adresse h1 -> ", \%h1, "\n";
print 'h1 : ', Dumper \%h1;

my $h2 = \%h1;
print "Adresse h2 -> ", $h2, "\n";
$h2->{c} = 33;
print 'h1 : ', Dumper \%h1;
print 'h2 : ', Dumper $h2;

my $h3 = { %h1 };
print "Adresse h3 -> ", $h3, "\n";
$h3->{d} = 44;
print 'h1 : ', Dumper \%h1;
print 'h3 : ', Dumper $h3;