use Sort::Key qw(nkeysort);

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