#!/usr/bin/perl

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

my $ref = {
	sig => \%SIG,
};

my $clone = $ref;  # Kopie der Referenz???
$clone = {};       # erwarte {} in $ref ...
print Dumper $ref; # Denkste! Alles noch da!

# Besser machen:
$clone = \$ref;    # Jetzt haben wir die richtige Kopie!!!
$$clone = {};      # und können den Inhalt des Original ändern
print Dumper $ref; # as expected