#!/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"

push(@array_neu2, $merker);

#!/usr/bin/perl -w
use strict;
open TEXTDAT, '<', "text.txt" or die $!;
<TEXTDAT> for 0..4;
my $merker = '';
my @array;
while( <TEXTDAT> ) {
        chomp;
        my @daten = split /!/, $_;
        if($merker != $daten[1]) {
                $merker = $daten[1];
                $hits++;
                push @array, $merker;
        }
        
}
close TEXTDAT;

while( my $line = <TEXTDAT> ) {
        chomp $line;
        my @daten = split( /!/, $line );
        if($merker != $daten[1]) {
                $merker = $daten[1];
                $hits++;
                push @array, $merker;
        }
        
}

#!/usr/bin/perl
use strict;
use warnings; # besser als -w, weil es nur die aktuelle Datei betrifft

my $file = "text.txt";
open( my $TEXTDAT, '<', $file ) or die "Error: couldn't open file '$file': $!";
<$TEXTDAT> for 0..4; # ok, weil for bei $_ einen alias auf den Wert enthält, der nach ende der Schleife "wiederhergestellt" wird.
my $merker = '';
my @array;
while( my $line = <$TEXTDAT> ) {
        chomp $line;
        my @daten = split( /!/, $line );
        if($merker != $daten[1]) {
            $merker = $daten[1];
            $hits++;
            push @array, $merker;
        }
        
}
close $TEXTDAT;

while ( my $line = <$handle> ){
    # ignoriere die ersten 5 "Zeilen"
    next if ( $. <= 5 );
    chomp $line;
    # ...
}

for(0..4){
  <TEXTDAT>
}