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