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