my $entries = () = readdir $dh;