#!/usr/bin/perl

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

my $tmp ='./tmp/';
my $filename_template = '%sfile%02d.zip';

my @zips = map { sprintf $filename_template, $tmp, $_ } (1 .. 5);
print Dumper(\@zips);