my @dirs = map { sprintf 'abc_%03d', $_ } 1 .. 100;