in reply to file substitution

This looks like another job for List::Compare.

In Section Seekers of Perl Wisdom