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

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

my %h1 = (
    a => { inhalt => 1 },
    b => { inhalt => 2 },
    c => { inhalt => 3 },
    d => { inhalt => 4 },
);
print "Adresse h1   -> ", \%h1, "\n";
print "Adresse h1_a -> ", $h1{a}, "\n";
print 'h1 : ', Dumper \%h1;

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

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

my $h4 = Storable::dclone \%h1;
print "Adresse h4 -> ", $h4, "\n";
print "Adresse h4_a -> ", $h4->{a}, "\n";
$h4->{a}->{inhalt} = 11;
print 'h1 : ', Dumper \%h1;
print 'h4 : ', Dumper $h4;