my $entries =()= readdir $dh;