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