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

my %test = (
    code => sub {
         my $input = shift;
         if ($input eq 'h')
	 { return 'hallo'; }
    },
);

$test{code1}= sub { my $input=shift; if ($input eq 's') { return 'sonne'; } };

my $foo = $test{code}->('h');
print "$foo\n"; # hallo erwartet
$foo = $test{code1}->('s');
print "$foo\n"; # sonne erwartet

use 5.012;
use warnings;

sub catsub {
  my @fs = @_;
  sub { map { $_->(@_) } @fs }
}

my %test = (
    code => sub {
        my $input = shift;
        say '[original]';
        if ($input eq 'h') { return 'hallo'; }
    },
);

$test{code} = catsub(
    $test{code},
    sub {
        my $input = shift;
        say '[erweiterung]';
        if ($input eq 's') { return 'sonne'; }
    },
    sub {
        say '[nix]';
        ();
    },
);

say $test{code}->('h');
say $test{code}->('s');

my %test = (
    lookup => { 's' => 'sonne', ... }
    code => sub {
        my $input = shift;
        return $test{lookup}->{$input} || 'unknown' ; }
    },
);