use Data::Dumper;
print Dumper \%lang;

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