foreach my $dir (@dirs) {
     print "Now processing dir $dir\n";
     @files = glob "*.eap";
     my $mkvingestzip = Archive::Zip->new();
     foreach $_ (@files) {
         print "Adding file $_\n";
         $mkvingestzip->addFile($_);
     }