$/ = ';'; @paths = ; foreach my $combination_listref ( &combinations_of( { min_length => 1, max_length => 5, elements => \@paths }) ) { my @paths = @{$combination_listref}; &test_using_paths(@paths) and say 'SUCCESS WITH ' . scalar (@paths) . ' paths : ' . join(';', @paths) } __DATA__ D:\opt\tbq\J2E\JC00\exe\jenqulib.jar;D:\opt\tbq\J2E\JC00\exe\jlogunzip.jar;D:\opt\tbq\J2E\JC00\exe\jperflib.jar;D:\opt\tbq\J2E\JC00\exe\jstartup.jar;D:\opt\tbq\J2E\JC00\exe\jstartupapi.jar;D:\opt\tbq\J2E\JC00\exe\jstartupimpl.jar;D:\opt\tbq\J2E\JC00\exe\servicehttp\tbqmc\frog.jar;D:\opt\tbq\J2E\JC00\exe\servicehttp\tbqmc\tbqmc.jar;D:\opt\tbq\J2E\JC00\exe\servicehttp\tbqmc\tbqmcsoap.jar;D:\opt\tbq\J2E\JC00\exe\servicehttp\tbqmc\tbqmcswing.jar;D:\opt\tbq\J2E\JC00\exe\servicehttp\tbqmc\soapclient.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\go.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\launcher\jaas.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\admin.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\bytecode.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\compilation_lib.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\com_tbq_pj_jmx.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\connector.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\ejb20.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\exception.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\iq-lib.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\jARM.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\jARMSat.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\jaxrpc-api.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\jcert.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\jmonapi.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\jms.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\jnet.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\jsse.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\jstartupapi.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\jstartupimpl.jar;D:\opt\tbq\J2E\JC00\j2ee\admin\lib\jta.jar;