my $zip = Archive::Zip->new($_);

##</code><code>##

if ($zip->read($_) == AZ_OK)

##</code><code>##

for (@list_FTP) {
    $logger->info("Trying to Unzip : $_");

    #initialising zip file
    my $zip = Archive::Zip->new();    # <-- create empty archive

    if ($zip->read($_) == AZ_OK) {
       ...