my @sorted_files_Test_flat_file_write_over_name_only =
   map  { substr($_, 11) }
   sort
   map  { sprintf('%011d%s', (stat)[9], $_) }  
   @files_Test_flat_file_write_over_name_only;