my @wantedItems = qw(vorname nachname wohnort);
my %countHash = ();
@countHash{@wantedItems} = ();

foreach (@liste) { zaehlen
  $countHash{$_}++;
}

foreach (keys %countHash) { # ausgabe ermitteln
  unless ($countHash{$_}) {
    print "$_ wurde nicht angegeben\n";
  }
  elsif ($countHash{$_} == 1) {
    print "$_ wurde einmal angegeben\n";
  }
  else {
    print "$_ wurde $countHash{$_} Mal angegeben\n";
  }
} # foreach