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