knoppix@Knoppix:~$ time perl -Mstrict -wle ' -> my $d = q{/usr/bin}; -> my @fns = do { opendir my $dh, $d or die $!; readdir $dh }; -> my @sorted = -> sort { ( lstat qq{$d/$a} )[ 9 ] <=> ( lstat qq{$d/$b} )[ 9 ] } -> @fns;' real 0m1.614s user 0m0.307s sys 0m1.273s knoppix@Knoppix:~$ time perl -Mstrict -wle ' -> my $d = q{/usr/bin}; -> my @fns = do { opendir my $dh, $d or die $!; readdir $dh }; -> my @sorted = -> map { $_->[ 0 ] } -> sort { $a->[ 1 ] <=> $b->[ 1 ] } -> map { [ $_, lstat qq{$d/$_} ] } -> @fns;' real 0m0.281s user 0m0.100s sys 0m0.160s knoppix@Knoppix:~$