use Archive::Extract;
my @zipdata=&all_data("LOG/","zip","zip"); #Namen der vorhandenen Zipdateien im Ordner LOG
my $zipfile2;
my $count=0;

$Anzzipdata = @zipdata; #Anzahl der zu durchsuchenden Dateien
if($Anzzipdata>1){
        print "\nEs werden $Anzzipdata Zip-Ordner entzippt...";
        }else{
        print "\nEs wird ein Zip-Ordner entzippt...";
}

foreach $zipfile (@zipdata) {
        $zipfile2= "./LOG/$zipfile";
        my $zd = Archive::Extract->new(archive => $zipfile2);
        my $ok = $zd->extract( to => './LOG') || die $zd->error;
        my @file = map{ File::Spec->catfile( $to, $_ ) } @{ $zd->files };
        my @zip = grep (/\.zip$/,@file);
        
        foreach (@zip) {
                $_=substr($_,1,length($_)); #sonst wäre "/DATEINAME"
                @_[$count++]=$_;
        }
        
        if (@_ ne '') {
                foreach (@_) {
                        $zipfile3 = "./LOG/$_"; #foreach-Schleife zum entfernen des / kann man löschen wenn man hier nach dem "LOG" kein "/" angibt 
                        my $zd2 = Archive::Extract->new(archive => $zipfile3);
                        my $ok = $zd2->extract( to => './LOG') || die $zd2->error;
                }
        }
}       
print " erfolgreich\n";