Select Code to Download

#!/usr/bin/perl

...

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

__OUTPUT__
$VAR1 = [
...
          './tmp/file04.zip',
          './tmp/file05.zip'
        ];