in reply to Getting a list of files in a directory sorted by date

use Sort::Key qw(nkeysort);

opendir my $dh, "..." or die;
my @sorted = nkeysort { -M } grep /\w/, readdir $dh;

[download]

In Section Seekers of Perl Wisdom