Select Code to Download

    print ++($foo = "99");    # prints "100"
    print ++($foo = "a0");    # prints "a1"
    print ++($foo = "Az");    # prints "Ba"
    print ++($foo = "zz");    # prints "aaa"

   use charnames "greek";
   my @greek_small =  map { chr }
                          (ord("\N{alpha}") .. ord("\N{omega}"));

   my @chars = map {chr} $ord_first .. $ord_last;