#!/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};