my @sorted_files = sort map  { $_->[0]              }
                        sort { $a->[1] <=> $b->[1]  }
                        map  { [ $_, [stat]->[10] ] } @files;