my %lang;
$lang{"status"}{"de"}       = "Status";
$lang{"filter_on"}{"de"}    = "eingeschaltet";
$lang{"filter_off"}{"de"}   = "ausgeschaltet";
$lang{"ok"}{"de"}           = "OK";

$lang{"status"}{"en"}       = "State";
$lang{"filter_on"}{"en"}    = "on";
$lang{"filter_off"}{"en"}   = "off";
$lang{"ok"}{"en"}           = "OK";

my %test;
my $sesslang = 'de';

for my $keyword ( keys %lang ) {
    print "Add $keyword with $lang{$keyword}{$sesslang} for Sessionlang $sesslang <br>\n";
    push @{ $test{"lang_$sesslang"} }, $lang{$keyword}{$sesslang};
}
print join '.', @{ $test{lang_de} };
print "<br>\n";