in reply to Re: GRT sort of files by time
in thread GRT sort of files by time

your benchmarking code is wrong: 
...
my @files=glob '*';
...
cmpthese -30, { map { $_ => "$_(\@files)" } @sub };

[download]
 @files is a lexical not available from outside its scope. You are actually sorting nothing.

You can solve that bug using a global variable for @files: 

...
our @files=glob '*';
...
cmpthese -30, { map { $_ => "$_(\@main::files)" } @sub };

[download]

In Section Cool Uses for Perl