my $alt = {
    foo     => 'bar',
    code    => sub{
        my ($t) = @_;
        print $t;
    },
};

my $neu = $alt;
$neu->{code}->('Hallo Welt');