#!/usr/bin/perl

open (TEXTDAT, "<test_datei") or die $!;
@array = <TEXTDAT>;
$anzahl_saetze = $#array;
$x = 5;
$merker = "";
@array_neu_2 = undef;
while ($x<=$anzahl_saetze)
{
  @array_neu = split(/!/, $array[$x]);
  $anstaendiger_zaehler = $x+1;
  $elemente = $#{@array_neu};
  $y = 0;
  while ($y<=$elemente)
  {
  if ($y==1)
    {
      $hits = 0;
      $z = 1;
      if ($merker != $array_neu[$z])
       {
        $merker = $array_neu[$z];
       # $array_neu_2[$hits] =  $merker;
      # print "$array_neu_2[$hits]\n";
        $hits++;
@array_neu_2 = $merker;
       }
    }
 $y++;
  }
  $x++;
}
print "@array_neu_2\n"