use warnings;
use strict;
use Data::Dumper;

my $tmp  = './tmp/';
my @zips = map { "$tmp$_" } qw(file1.zip file2.zip);

print Dumper(\@zips);

__END__

$VAR1 = [
          './tmp/file1.zip',
          './tmp/file2.zip'
        ];