$padded = reverse sprintf("%010s", scalar reverse $string);