while (my ($key, $value) = each(%kundenHash))
{ 
......
 my $cntRef   = $anderesHash{$key};
 my @cntMsgArray = @$cntMsgRef;
......
}[