in reply to Grouping files before zipping!

without counting I'm going to guess:

while(@files or @other_group) {
is line 42. What do you think that does?
Me

In Section Seekers of Perl Wisdom