use File::Finder; my @START = qw(.); # multiple start points permitted my @newest_to_oldest = map $_->[0], sort { $a->[1] <=> $b->[1] } File::Finder->type('f')->collect(sub { [$File::Find::name, -C] }, @S +TART); [download]