#!/usr/bin/perl -w
use strict;
 
use Benchmark;
 
opendir LOGS, ".";
my @logs = readdir LOGS;
 
my $cmp = timethese( -1, {
  'Cached' => sub{
   my @sorted = map   { $_->[0] }
                sort  { $a->[1] <=> $b->[1] }
                map   { [$_, -M $_] }
#                grep  { /\.log$/ }
                @logs;
  },
 'Raw' => sub {
   my @sorted = sort  { -M $a <=> -M $b }
#                grep  { /\.log$/ }
                @logs;
  }
 }
);
 
Benchmark::cmpthese( $cmp );