sub bydate{(stat $dir.$a)[9]<=>(stat $dir.$b)[9];}

@sortedfiles = sort bydate @files_in_your_dir;