sub SearchAdresse {
   my $obj = "test1";
   my $name = "test2";
   my $vorname = "test3";
   my @searchAdressen;
   my $adrNr;
   my $feldName;
   my $feldVorname;
   
  
   $name =~ s/\*/\.\*/g;
   $name =~ s/\?/\.\?/g;
   $vorname =~ s/\*/\.\*/g;
   $vorname =~ s/\?/\.\?/g;
   
   foreach $adrNr (keys %adresse) {
       $feldName = $adresse{$adrNr}{'txtNameFirma'};
       $feldVorname = $adresse{$adrNr}{'txtNameVorname'};
       if (($feldName =~ /^$name\b/i) && ($feldVorname=~ /^$vorname\b/i)) {
           push(@searchAdressen,$adrNr);
       }
   }
   if (@searchAdressen) {
       return @searchAdressen;
   }
   return;
}