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

##</code><code>##

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

##</code><code>##

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