my @files = sort readdir $dh;