my @dirs = grep { /object...000/ && -d "$_" } readdir(DIR);
...
mkdir "object$highest";
chown $uid, $gid, "object$highest";
chmod 0777, "object$highest";
...