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";
         }
  }