Select Code to Download

sub checkReadTime  # call this with just your list of files
{
...
    warn sprintf( "read %d lines from %d files in %d sec\n",
                  $linecount, scalar @_, $endtime - $starttime );
}

  filterLogFiles file.list | sort | your_main_app

    open( my $logsort, "-|", "filterLogFiles @files | sort" ) or die $
+!;
    while ( <$logsort> ) {
        ...
    }