use Sort::Key qw(nkeysort);
my @files_by_mtime = nkeysort { (stat)[9] } glob "$dir/*";