my @sorted_files_Test_flat_file_write_over_name_only =
  map  { $_->[0] }
  sort { $a->[1] <=> $b->[1] or $a->[2] <=> $b->[2] }
  map  { [ $_,  [stat]->[9] ] }  
  @files_Test_flat_file_write_over_name_only;