in reply to if file does not exist

Try: 
next unless ( -e "../XML/$id.xml" );

[download]
as the frist line of the loop.

Phil

In Section Seekers of Perl Wisdom