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

my $alt = {
	foo		=> 'bar',
	code	=> sub{ say $_[0]; },
};
# kopieren
use Clone 0.37;
my $neu = Clone::clone($alt);
# die Kopie ändern
$neu->{code} = sub{	say "Und jetzt: ".$_[0]; };
$neu->{foo} = 'bar2';
$neu->{code}->('Hallo Welt neu');
# schauen ob das Original unverändert geblieben ist
$alt->{code}->('Hallo Welt alt');
say $alt->{foo};