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

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

my %daten=();
@daten{@daten}=1;

@not_defined = grep {not exists $daten{$_}} @wanted;


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