Hello, I'm new to perl and trying to unzip files with Archive::Zip qw( :ERROR_CODES :CONSTANTS )

It's working great but when I try to print the zip members they appear twice.

In fact they are already counted twice with my @members = $zip->members() and it's the same with $zip->memberNames

Any idea why? And how can I print the zip members only once or counting them correctly?

#Subroutine to Unzip Files      (XXX.zip => ./XXX/)
sub unzip_files_to_dir{
  $logger->info("======================= START UNZIP =================
+======");
  foreach (@list_FTP) {
    $logger->info("Trying to Unzip : $_");
    #initialising zip file
    my $zip = Archive::Zip->new($_);
    if ($zip->read($_) == AZ_OK){
      my $new_folder = basename($_, ".zip");
      $logger->info("Creating new_folder : $new_folder");
      mkpath($new_folder);
      #my @names = $zip->memberNames;
      $logger->info("Zip content :");
      #print "\t".$_, "\n" for @names;
      # Loop through the members, printing their name,
      # compressed size, and uncompressed size.
      my @members = $zip->members();
      my $nbr_members = @members;
      print "Number of files in zip : $nbr_members "; # print 4 when t
+here are only 2 files??
      foreach (@members){
          print " - " . $_->fileName() . ": " . $_->compressedSize() .
           " (" . $_->uncompressedSize() . ")\n";
      }
      $zip->extractTree("",$dirIN.$new_folder);         
    }
  }
}
[download]

I worked around that by dividing the nbr of members by 2 and breaking the foreach loop when they are printed once. But that's really ugly and sad :'(