sub readnames { opendir THISDIR, '../students'; @allnames = readdir THISDIR; closedir THISDIR; }