@Janlen = map { sprintf '%03d', $_ } 6 .. 31;