use Path::Tiny qw/ path /;
my @files = path( $CosMovFolder )->realpath->children();
my @sorted_files = map { $$_[1] }
    sort { $$a[0] <=> $$b[0] }
    map { [ -m $_, $_ ] }
    @files;