my $number = decode_base 36, 1009;
say lc encode_base 36, $number++ for 0..36;