#!/usr/bin/perl -w
use strict;

my @wanted = qw (Name Vorname Strasse Plz Ort);
my @daten  = qw (Name Vorname Strasse);
my @not_defined = ();

for my $wanted (@wanted)
{
    unless (grep (/$wanted/,@daten) > 0)
    {
        push (@not_defined,$wanted);
     }
}


@not_defined ? print "Folgende Eintraege sind nicht enthalten " . join ", ",@not_defined : print "Alle Eintraege sind enthalt