#!/usr/bin/perl -w







use strict;



use Benchmark;







 timethese(100,



 { 'chad'   => \&chad,



   'swartz' => \&st,});







sub chad {



   sort{ (-M $b) <=> (-M $a) } glob("*");



}







sub st {



   map { $_->[0] }



   sort { $a->[1] <=> $b->[1] }



   map { [$_, -M] }



   glob('*');



}