@Satz = split($Trz,$EinSatz);
$TeilSatz = "";
for ($i = 0;$i <= $#FNrTab;++$i) {
   $FeldNr = $FNrTab[$i]; # FeldNr aus Tabelle
   $ZStr = "";
   if (defined($Satz[($FeldNr - 1)])) {$ZStr = $Satz[($FeldNr - 1)]}
      $TeilSatz .= $ZStr;
         if ($i < $#FNrTab) {$TeilSatz .= $Trz}
   }
   unless($SatzAnz{$TeilSatz}++) {push(@Uniq,$EinSatz)}
   else                          {push(@Dubs,$EinSatz)}
   ++$SatzAnz % 1000 or print chr(13),"Lese Satz ",$SatzAnz;
}