opendir DIR, $logdir or die "Cannot open $logdir: $!";

my @cfiles = map  { $_->[1] }
             sort { $a->[0] <=> $b->[0] }
             map  { [ -M $_, $_ ] }
             grep { /\w/ } 
             readdir DIR;