$padded = sprintf "%06d", 13;