List::UtilsBy 

use List::UtilsBy qw( nsort_by );
use File::stat    qw( stat );

my @files_by_age = nsort_by { stat($_)->mtime } @filenames;

my @files_by_age = sort {
    stat($a)->mtime <=> stat($b)->mtime
} @filenames;