#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;


my @ar1 = ( {'name' => 1, 'id' => 1},
            {'name' => 2, 'id' => 2},
            {'name' => 3, 'id' => 3},
            {'name' => 4, 'id' => 4},
            {'name' => 5, 'id' => 5}
          );
my @ar2 = qw(4 5 6 7 8);

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

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

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