open(TEMP_R, '<', $tempfile) || die "Error: ";
while (<TEMP_R>)
{
   if ($_ =~ /--- Kundenname:/)
   {
      if ($kundenFound == 1)
      {
         $kundenInfoHash{$kundenName} = \@kundenMesArray; # hier passierts => immer wieder die gleiche Adresse!!!!!!!!
      }
      $kundenName = "";
      $kundenName = $_;
      $kundenName =~ s/\--- kunden:   //; # delete string "--- kunden:   " at begin of line
      $kundenName =~ s/\s\(C\)//;         # delte string " (C)" at end of line
      chomp($kundenName);                 # deletes "\n" at end of line
      $kundenName = substr($kundenName, rindex($kundenName,'\\')+1);
      push(@kundenNamesArray, $kundenName);
      $kundenFound = 1;
   }
   else
   {
      push(@kundenMesArray, $_);
   }
}
close(TEMP_R); # close TEMP-FILE