perl script modified to ignore collections