for my $name (@vorname) { my $anz = grep{ $_ eq $name } @liste; if ( $anz ){ print "Der Vorname <<< $name >>> ist $anz Mal vorhanden\n"; } else { print "Der Vorname <<< $name >>> ist nicht vorhanden\n"; } }