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