List::UtilsBy 

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

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