while (my ($key, $value) = each(%kundenInfoHash))
{
   if ($key =~ "Schulze")
   {
      print $value . "\n";
      $kundenMesArrayRef = $value;
   }
} 

@kundenMesArray = @$kundenMesArrayRef;

for (my $i = 0; $i < @kundenMesArray; $i++)
{
   print $i . " " . $kundenMesArray[$i] . "\n";
}