use warnings;
use strict;
use Data::Dump;
use File::Spec::Functions qw/catfile/;

my $inputPathPrefix = "C:/Temp/xml";
my @inputfiles = map { catfile($inputPathPrefix, $_) }
	'test1.xml', 'test2.xml', 'test3.xml';
push @inputfiles, map { catfile($inputPathPrefix, $_) }
	'test4.xml', 'test5.xml', 'test6.xml', 'test7.xml';

dd @inputfiles;

__END__

(
  "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",
)