for my $Zip_File (@Zip_File){
...
my $zip = new Archive::Zip($Zip_File); 
...
while (defined(my $line = $fh->getline())) { 
...