my $issue = "Folder Name";
my @xmlFiles;

# Start Snippet
chdir ("$issue");

print "1. Looking for XML filesn";
my $find_xmlFiles = "dir /a:-d/b/s/o:-n *.xml";
@xmlFiles = `$find_xmlFiles`;
print "2. Found XML filesn";

chdir ("..");

sub find_xml {
    my @xmlFiles;
    my @issues; # with sub to populate the array
    foreach my issue (@issues) {
        # snippet above
    }

    # Sorting through @xmlFiles to find ones I want
    # Populate a global array for use in another subroutine
    # Copy other files associated with desired XML
}