#!/usr/bin/perl

use warnings;
use strict;

package childmodul;

    sub new {    
        my $classname = shift;
        my $self = {hsh_scriptParam => shift};
        return bless($self, $classname);
    }
  
    sub set_Data {
        my $self = shift;
        my $args = {@_};
        my @vals = @{$args->{block}->{test}};
        $self->{hsh_scriptParam}->
               {$vals[0]}->
               {$vals[1]}->
               {$vals[2]}->
               {$args->{key}} = $args->{wert};

        print "Result: ";
        print $self->{hsh_scriptParam}->
                     {$vals[0]}->
                     {$vals[1]}->
                     {$vals[2]}->
                     {$args->{key}};
        print "\n";
    }


package main;

my $hsh_runtimeParam = {
    ScriptParam => {ScriptName => $0 || '???',
                    Version    => 'v.01' || '???',
                    Hilfe      => {Usage   => 'ruf mich mal richtig auf',
                                   Message => 'rufe mal nach Mutti'},
                   },
                   Runtime => {ApplName => 'TestClass',
                               Caller   => $^O =~ /win32/i ? $ENV{USERNAME} : $ENV{USER},
                               Loglevel   => 'höher geht nicht',
                               RootPath   => 'ganz oben' || '???',
                               StartTime  => 'am Anfang' || '???',
                   },
                   DBParam => {RegPar  => 'test',
                               dbSession  => {ApplName  => 'testhash',
                                              Action    => 'insert',
                                              runtime   => {dbTable => 'INIT_REG'}
                               }
                   }
};
my $Object1 = childmodul->new($hsh_runtimeParam);
$Object1->set_Data(block => {test => [ 'DBParam', 'dbSession', 'runtime' ]},
                   key  => 'dbTable',
                   wert =>'INIT_RUN');