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