my $out = "Nicht gefunden";
foreach my $datum (@daten) {
  chomp $datum;
  my @ud = split /\*\*/, $datum;
  if ($ud[1] eq $name) {
    if ($ud[19] eq $pwd) {
      $out = "Authentifiziert";
    } else {
      $out = "Verweigert";
    }
    last;
  }
}