foreach my $logFile(@logfilelist) {
        
    open my $in , '<', $logFile or die $!;
    print "Umstrukturieren $logFile \n";
    while( my $line = <$in> ){
        if( $line =~ /^Context/ ){
            $line=~ s/^Context:\s+//;
            @array = split /\s/, $line;
            $line = join "|", @array;
            if( $array[2] ne '' ){
               
 $counter++;
               
 if($logFile =~ /^dn/) {
               
 print $frontend_context "$counter|$line\n";
               
 }
               
 elsif($logFile =~ /^logfile/ || /^inoutput/) {
               
     print $backend_context "$counter|$line\n";
               
 }
            }

        }
}

elsif($logFile =~ /^logfile/ || $logFile =~ /^inoutput/) {

elsif($logFile =~ /^(?:logfile|inoutput)/) {

my @logfilelist1 =glob("ordner1/.log");
my @logfilelist2 = glob("ordner2/.log");

my @diff = grep{ my $i = $_; !grep{$_ eq $i}@logfilelist2 }@logfilelist1;

print "in logfilelist1, aber nicht in liste2:\n\n";
print $_,"\n" for @diff

my @perf1 =glob("logfile1/.log");

opendir(DIR1, "perf1/");

my @perf1_files = grep {/\.log/} readdir(DIR1);

my @perf1 =glob("logfile1/.log");

my @perf1 = glob 'logfile/.log*'