@files =  map { $_->[0] }
          sort { $b->[1] <=> $a[1] }
          map { /^(..)(..)(..)/; [ $_, "$3$2$1" ] }
          grep $_ ne '.' && $_ ne '..',
          readdir D;