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