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