foreach my $ar1 (@ar1) {
   if( grep (/$ar1->{'name'}/, @ar2) ) {  # Zeile 18
       print $ar1->{'name'}."drin\n";
   }
}