use strict;
use warnings;
use Data::Dumper;

my $ref = {
bla => 99,
foo => 'ööö',
blubb => 9,
z => 'zett'
};

my $back;

print "Adressen: $ref # $back \n";
print Dumper ($ref);
print Dumper ($back);

%$back = %$ref;

print "\n\nAdressen: $ref # $back \n";
print Dumper ($ref);
print Dumper ($back);