"I have some zip files..."

You can avoid it to shell out:

#!/usr/bin/env perl

#     $Id: 1199058.pl,v 1.2 2017/09/11 09:10:43 karl Exp karl $
# http://perlmonks.org/?node_id=1199058

use strict;
use warnings;
use feature qw(say);
use Path::Iterator::Rule;

my $rule = Path::Iterator::Rule->new->file->name("*.zip");
my $path = q(.);
my $next = $rule->iter($path);

while ( defined( my $archive = $next->() ) ) {
    say $archive;
    # more stuff..
}

__END__
[download]

See also Path::Tiny, Path::Iterator::Rule and IO::All.

Regards, Karl