my @allfiles = glob $dir;