map { printf "Char(%s) = Ascii %d\n", $_, ord $_ } split //, $newName;