for (keys %lang) {
             print "Add $_ with $lang{$_}{$sesslang} for Sessionlang $sesslang <br>";
push @{$test->{"lang_$_"}},  join(".", @{ $lang{$_}->{$sesslang} })  ;
          }