[...]
sub content {
    my ($section, $action) = @_;
    my $subs = {
        user_index      => \&user_index,
        user_unew      => \&user_new,
        user_uchange => \&user_change,
        user_udelete   => \&user_delete,
        user_gnew      => \&user_new,
        user_gchange => \&user_change,
        user_gdelete   => \&user_delete,

        project_index  => \&project_index,
        [...]

        section_error   => \&section_error
    };
    $tmp = $section."_".$action;

    if ( exists $subs->{$tmp} ) {
        $tmp = $subs->{$tmp};
    }
    else {
        $tmp = $subs->{'section_error'};
        $action    = $sysmsg{section_error};
    }
    $tmp->( $action );
}

sub section_error {
    $template->param( CONTENT_ERROR => 1 );
    $template->param( ERROR_HEADER => shift );
}
[...]

package MyApp::Config;
use warnings;
use strict;
use Readonly;

Readonly $Actions => {
  user_index      => {
    code => \&user_index,
    template => 'user_index.tmpl',
    order_by => 'name desc',
  },
  user_unew      => {
    code => \&user_new,
    template => 'user_unew.tmpl',
    title => 'Blablubb',
  },
  user_uchange => {
    code => \&user_change,
    template => 'user_uchange.tmpl',
    error_template => 'user_uchange_error.tmpl',
    title => 'heidiho',
    default_mask => 0664,
  },
# ...    
};