my @list_files = readdir $dir;