my (@logfilelist); @logfilelist = sort @logfilelist; # Cut away everything that is too early while ($#logfilelist > -1 && $startdate lt @logfilelist[0]) { shift @logfilelist; }; # Cut away everything that is too late while ($#logfilelist > -1 && $enddate gt @logfilelist[-1]) { pop @logfilelist; }; # Now, @logfilelist contains all the logfiles in question