my @inputpaths = @{test_paths([1..3])};
push @inputpaths, @{test_paths([4..7])};

sub test_paths {
    my ($ids) = @_;
    state $prefix = 'C:/Temp/xml/';
    return [ map "${prefix}test${_}.xml", @$ids ];
}