#!perl -w
use strict;
use warnings;

my @vorname;
my $vorname;
$vorname[0]= "Markus";
$vorname[1]= "Fritz";
$vorname[2]= "Otto";

my @liste;
my $liste;
$liste[0]= "Fritz";
$liste[1]= "Otto";
$liste[2]= "Fritz";
$liste[3]= "Josef";

my $zaehler = 0;

foreach (@vorname) {
         if ("@liste" =~ "$_")  {
         print "Der Vorname <<< $_ >>> ist vorhanden\n";
         }
         else   {
         print "Der Vorname <<< $_ >>> ist nicht vorhanden\n";
         }
  }