use 5.011;
use warnings;
use Data::Dumper;

my $inputPathPrefix = "C:/Temp/xml";
my @inputfiles;
for my $i (1..7) {
    push(@inputfiles, $inputPathPrefix . "/test${i}.xml");
}
say Dumper(\@inputfiles);

##</code><code>##

$VAR1 = [
          'C:/Temp/xml/test1.xml',
          'C:/Temp/xml/test2.xml',
          'C:/Temp/xml/test3.xml',
          'C:/Temp/xml/test4.xml',
          'C:/Temp/xml/test5.xml',
          'C:/Temp/xml/test6.xml',
          'C:/Temp/xml/test7.xml'
        ];