1 while ((@_ = <*.pld>) < $count);