my @files_by_mtime =
    map  {$_->[0]}
    sort {$a->[1] <=> $b->[1]}
    map  {[$_,(stat)[9]]}
    glob "$dir/*";