my $start = ($highest / 1000) + 1;

mkdir "object${_}000" for $start .. $start + 9;