use File::stat;
my @alog =
    map { $_->[1] }
     sort { $b->[0] <=> $a->[0] }
      map { [ stat($_)->mtime , $_ ] }
       grep {-s && -r}
              bsd_glob(Global_tf . $fileglobbing_patt, GLOB_TILDE|GLOB_ERR);