my @numbers = map /object(\d+)000/, grep -d, readdir(DIR);

##</code><code>##

use List::Util 'max';
my $highest = max map /object(\d+)000/, grep -d, readdir(DIR);

##</code><code>##

my $highest = max map /object(\d+)000/, grep -d, glob 'object???000';