my $alt = {
    code => sub{ printf "alt %s\n", shift }
};

my $neu = $alt;
$alt->{code} = sub { printf "neu %s\n", shift };

$neu->{code}->('Hallo Welt'); # "neu Hallo Welt"