use Archive::Zip;
use strict;
use warnings;

my $zip=Archive::Zip->New();
	
my @filestozip=('RED_b0.apf','RED_b1.apf','RED_b2.apf','RED_b3.apf');
my $filelist=$zip->addFile(@filestozip);

$zip->writeToFileNamed('testthis.zip');