#!perl -w
use strict;
use warnings;

my $KWS_Logfile = "D:/logfile.txt";
open KWS_LOGFILE, "<$KWS_Logfile";
my @kws_logfile =  <KWS_LOGFILE>;
close KWS_LOGFILE;

my $logfile_date = shift(@kws_logfile);  # erste Zeile entfernen und in Scalar übergeben
chomp @kws_logfile;                      # Alle Newline-Zeichen entfernen

my $Spalten_Logfile = "D:/logfile_spalten.txt";
open SPALTEN_LOGFILE, ">$Spalten_Logfile";

foreach (@kws_logfile) {
         my $spalten = join ";", @kws_logfile[0..7];
         print SPALTEN_LOGFILE "$spalten\n";
         foreach (0..7) {
                  shift(@kws_logfile)
         }
}