use File::Find;
my @files;
find(sub { push @files, $File::Find::name if $File::Find::name =~ /\.zip$/ }, $path);