while (my ($key, $value) = each(%kundenInfoHash))
      {
            print $key . " *** " . $value . "\n";
            my @kundenMesArray = @$value;
            my $anz2 = @kundenMesArray;
           print "main: ----------->" . $anz2 . "\n";
            for (my $i = 0; $i < @kundenMesArray; $i++)
            {
               print $i . " " . $kundenMesArray[$i];
            }

      }