I have the following Perl code:
sub merge_xml { foreach my $repository (\'repo1\', \'repo2\') { my @xml_files; sub match_xml { my $filename