@file2 = qw (PIXX_SRV_LF5.LOG            PIXX_SRV_LF5.LOG.1            Datei.log           ); foreach $file2 (@file2){           $fh  = new Archive::Zip::MemberRead($zip, $file2);           $zeile = 0;           print "$file2\n"; }