#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
my %test;
%test = (
    variablen => [
        {
            name    => 'Var1',
            gueltig => 'pa',    # Gueltigkeit dieser Formularvariable
            code    => sub {
                'foo1'; # natürlich wird hier viel viel mehr gemacht
            },
        },
        {
            name    => 'Var2',
            gueltig => 'pu',
            code    => sub {
                'foo2';
            },
        },
        {
            name    => 'Var3',
            gueltig => 'pa,pu',
            code    => sub {
                'foo3';
            },
        },
    ],
    formate => [
        {
            name    => 'plain ANSI',
            ident   => 'pa',    # konstantes Kürzel zur Identifizierung in der DB
            code    => sub {
                my ($ident) = @_;
                foreach my $ref (grep {grep {$_ eq $ident} split /\,/,$_->{gueltig}} @{$test{variablen}}) {
                    print "$ident fuert $ref->{name} aus: ".$ref->{code}()."\n";
                }
            },
        },
        {
            name    => 'plain UTF',
            ident   => 'pu',
            code    => sub {
                my ($ident) = @_;
                foreach my $ref (grep {grep {$_ eq $ident} split /\,/,$_->{gueltig}} @{$test{variablen}}) {
                    print "$ident fuert $ref->{name} aus: ".$ref->{code}()."\n";
                }
            },
        },
    ],
);
foreach my $ref (@{$test{formate}}) {
    print $ref->{code}($ref->{ident})."\n";
}